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GENERAL INFORMATION 
PROGRAM ABSTRACT 


THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE 
LP25 LINE PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT 
WHICH INTERFACES TO THE PDP-11 CPU. THE BROAD RANGE OF TESTS 
ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABILITY OF 
co ed PRINTER. THE INDIVIDUAL TESTS ARE IDENTIFIED AS 

LL 3 


TEST INTERFACE LOGIC 

TEST READY LINE_INTERLOCKS 

TEST FORMS LENGTH SELECTION 

TEST PRINTING SPEED 

TEST DAVFU ERROR DETECTION 

TEST DAVFU LINE COUNT PAPER CONTROL 

TEST DAVFU CHANNEL SELECTION PAPER CONTROL 
TEST DATA_TRANSFER PATHS 


PRINTABLE CHARACTERS 
NON-PRIN 


TEST 1 TABLE CHARACTERS 
TEST 1 BAND PATTERN 

TEST 1 SPURIOUS HAMMER FIRING 
TEST 1 PRINT CONTROL 

TEST 1 CRITICAL PATHS 

TEST 1 MULTIPLE LINE ADVANCE 


~ 
mn 
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~ 
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CHARACTER ALIGNMENT 


TEST 1 VERIFIES OPERATION OF THE INTERFACE LOGIC. TESTS 2 AND 
3 ARE MANUAL INTERVENTION TESTS TO CHECK PRINTER MANUAL 
oP er ie 4 DETERMINES THE TIME INTERVAL ate oa 


NG SPEE 
MEASUREMENT MANUALLY IF A CLOCK IS NOT INSTALLED IN THE SYSTEM. 
TESTS 5, 6, AND 7 VERIFY PROPER OPERATION OF THE DAVFU (DIRECT 
ACCESS VERTICAL FORMAT UNIT) OPTION. TESTS 5 AND 6 OF THE DAVFU 
GROUP _INVOLVE MANUAL INTERVENTION. THE DAVFU TESTS ARE OMITTED 
IF THE PRINTER UNDER TEST DOES NOT HAVE A DAVFU. TESTS 8 THROUGH 
16 COMPRISE THE PRINTING TESTS. 


THIS eyo ads IS_INTERFACED TO A FRONT-END PIECE OF eae 
KNOWN AS THE DIAGNOSTIC RUNTIME SERVICES (DRS) MODULE WHICH 
BRINGS TOGETHER ALL THE CODE FORMERLY INCLUDED WITHIN THE 
DIAGNOSTIC FOR INTERFACING TO THE ENVIRONMENT. THE DIAGNOSTIC 
SUPERVISOR ALLOWS THE OPERATOR TO SPECIFY HARDWARE/SOF TWARE 
PARAMETERS AND TO PERFORM TEST AND UNIT SELECTION. IN THE DRS 
COMMAND MODE, THE OPERATOR CAN ISSUE COMMANDS TO CONTROL THE 
OPERATION OF THE DIAGNOSTIC AND CAN, BY MEANS OF SWITCHES ON 
THESE COMMANDS, INVOKE DIFFERENT FLAGS WHICH REPLACE THE 
HARDWARE SWITCH REGISTER WHICH IS NOT ACCESSIBLE UNDER THE 


SINCE THE PROGRAM ONLY MONITORS THE CURRENT CONDITION OF THE 
READY AND DEMAND LINES AND DOES NOT RECEIVE ANY OTHER STATUS 
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INFORMATION FROM THE LINE PRINTER, THE OPERATOR MUST EXAMINE 
THE PRINT PATTERNS PRODUCED BY THE VARIOUS TEST ROUTINES TO 
VERIFY PROPER PRINTER OPERATION. 


THIS DIAGNOSTIC ne gee HAS THE CAPABILITY TO TEST UP TO 16 LINE 
PRINTERS AT THE SAME TIME. 


SYSTEM REQUIREMENTS 


A TEST STATION IS REQUIRED ag bd OF A PDP=11 CPU WITH A 
MINIMUM OF 16K WORDS OF MEMORY A_CONSOLE TERMINAL WITH 
cases Al DEVICE ADDRESS 577500. THE SYSTEM ALSO REQUIRES 

AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS/RK11 wy DRIVE TO 
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. A KW11-L LINE 
TIME CLOCK OR A KW11-P PROGRAMMABLE REAL-TIME chock IS NECESSARY 
FOR MEASURING THE TIME INTERVAL FROM WHICH PRINTING SPEED IS 
DETERMINED. IF A CLOCK IS NOT INSTALLED IN THE ey THE 
OPERATOR WILL HAVE TO USE MANUAL MODE TO MANUALLY TIME 
PRINTER OPERATION FOR A FIXED TIME INTERVAL TO CALCULATE THE 
PRINTING SPEED. 


IN A MANUFACTURING ENVIRONMENT WHERE APT/ACT/SLIDE ARE USED, 
THE TEST STATION MUST BE EQUIPPED WITH THE APPROPRIATE INTERFACE 
AND A HOST PROCESSOR WITH THE NECESSARY SOFTWARE. 


RELATED DOCUMENTS AND STANDARDS 
PROJECT PLAN FOR LP25 DIAGNOSTIC PROGRAM 
DOCUMENT : -008-00-U 


s- 


DATE: 6-SEP-78 


DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION 
FOR CZLPLAO LP25 DIAGNOSTIC PROGRAM (PRELIMINARY) 
DATE: 29-SEP-78 


LINE PRINTER, 250 LPM (LP25) PURCHASE SPECIFICATION 
(PRELIMINARY) 


DATAPRODUCTS 300 LPM LINE PRINTER FIELD MAINTENANCE 
GUIDE (PRELIMINARY) 


ge eB 300 LPM LINE PRINTER OPERATOR'S GUIDE 
(PRELIMINARY) 


DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11 
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE PDP-11 
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE 
ENVIRONMENT . 


THE DIAGNOSTIC CAN BE USED IN A VARIETY OF OPERATING SYSTEMS 
TO FULFILL DIFFERENT REQUIREMENTS. THE DIAGNOSTIC CAN BE 
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LOADED USING XXDP IN A FIELD SERVICE OPERATION, LOADED USING 
THE APT/ACT/SLIDE DIAGNOSTIC MONITORS IN A MANUFACTURING 
ENVIRONMENT, OR MANUALLY LOADED USING PAPER TAPE. 


THE APPLICABLE PDP-11 CPU, MEMORY, AND PERIPHERALS SHOULD BE 
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING 
THIS DIAGNOSTIC. 


ASSUMPTIONS 


THE LINE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE 
at ton ON LINE IN READINESS FOR TESTING. EACH LINE PRINTER 

MUST HAVE ITS OWN M7258 CONTROLLER SET UP_AT A DIFFERENT os 
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS 
777514 WHICH CAN BE USED WHEN A SINGLE LINE PRINTER IS BEING 


UNDER TEST. IT WILL B C 

LINE PRINTER OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE 
DIAGNOSTIC IN ORDER TO DETERMINE WHETHER THE 64 OR 96 CHARACTER 
BAND IS INSTALLED. 


A PATCH IS REQUIRED IN THE DIAGNOSTIC TO CIRCUMVENT AN 
INCOMPATIBILITY IN THE DIAGNOSTIC SUPERVISOR. iT IS NECESSARY 
TO ADD 11236 TO THE CONTENTS OF ~s ADDRESS be WHICH 
IS FOUND AT THE END OF THE ASSEMBLY LISTING. THIS SUM IS USED 
AS THE ADDRESS INTO WHICH 42760 IS DEPOSITED. 177777 IS 
DEPOSITED INTO THE SUBSEQUENT MEMORY ADDRESS. 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 

2.1.1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL  XXDF 

PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 

THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR: 


EEE 


* STEP 1 * 


REE KKEK 


A SHORT SERIES OF ‘HARDCORE QUESTIONS’ WILL BE ASKED: 
QUESTION MEANING 


IS THERE AN “ CLOCK? 


CLOCK 
: IS THE POWER 50 CYCLES (AS IN EUROPE)? 
LSI (L) N ? IS MACHINE AN LSI? 
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LPT (L) N ? IS THERE A LINE PRINTER? 
MEM (K) (D) 16 ? HOW MANY « OF MEMORY ARE THERE? 


THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NCT ALL OF THE QUESTIONS WILL BE 
ASKED: FOR EXAMPLE, IF YOU SAY ‘'YES’' TO THE L=CLOCK QUESTION, THE 
P=CLOCK QUESTION WILL NOT BE ASKED. 


REESE 


* STEP 2 * 


REKAKKKEEK 


WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT ‘DS-8>''. FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT XXDP WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 


AT THIS POINT YOU WILL ENTER A ‘'START’’ COMMAND. THIS IS NOT THE SAME 
AS THE XXDP ‘'START’’ COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO 
THE XXDP DOT PROMPT. THIS ‘‘START'' COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL _ OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN ‘2.3 DETAILS OF COMMANDS AND SYNTAX''. HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS: 


STA/PASS : 1/F LAGS : HOE 
THINGS TO NOTE HERE: 


1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE 
"DS-B>'’ LEVEL NEED TO BE TYPED. 


2. THE "PASS** SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
+ CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL_ BE EXPLAINED SHORTLY). ONE 

PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 


3. THE ‘FLAGS'’ SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES ARE: 


LOE LOOP ONE ERROR 

HOE HALT ON ERROR 

IER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY). 


eee KeReKe 


* STEP 3 * 


eaaEKKREKEEK 


WHEN YOU HAVE TYPED IN A ‘'START’’ COMMAND, THE DIAGNOSTIC WILL COME 
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BACK WITH THE QUESTION ‘# UNITS?'' TO WHICH YOU SHOULD RESPOND BY 
TYPING iN THE NUMBER OF DEVICES YOU WISH TO TEST. 


A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE ee IS DIRECTED 
AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
DRIVES TO BE TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
DiSK CONTROLLER, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
CONTROLLERS. THE TARGET DEVICE OF A_ DIAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE ‘HEADER’’ STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODE. ONE OF THE OPERANDS OF THIS ‘HEADER'’ STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC. 


eee eenene 


* STEP 4 * 


REekeeREKEK 


WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE_ TESTED, THE 
DIAGNOSTIC WILL ASK YOU THE ‘HARDWARE QUESTIONS’. THE ANSWERS TO 
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED ‘HARDWARE 
ot ale ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE 


THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS. 


THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
DIAGNOSTICS WILL IN THE FUTURE NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES. INSTEAD, THEY WILL ASK THE OPERATOR FOR ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 


REEKKEREREK 


* STEP 5 * 


REKKKKKKEK 


AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS FOR ALL THE UNITS, 
YOU WILL BE ASKED *‘CHANGE SW?"* IF YOU WANT TO BE ASKED THE SOF TWARE 
QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE ‘'Y''. IF 
YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 'N’’. IF 
YOU TYPE "'Y'’ YOU WILL BE ASKED THE SOFTWARE QUESTIONS, AND THE ANSWERS 
WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE PROGRAM. THE SERIES OF 
ee teteee BE ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS 


CRAKE KREKK 


* STEP 6 * 


EERE KEKKE 


AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS 
THAT CAN HAPPEN ye agt ye ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START 
COPMAND. CONSIDER THE POSSIBILITIES: 
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1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 


2. IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 


HOE SET: a 4 ERROR WILL BE REPORTED ON THE CONSOLE AND 
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE. 
LOE SET: THE DIAGNOSTIC WILL _LOOP ENLESSLY ON THE BLOCK 
OF CODE THAT DETECTED THE ERROR. 
NEITHER — NOR LOE SET: THE ERROR WILL BE REPORTED ON 
THE CONSOLE AND NORMAL EXECUTION WILL RESUME 
AS IF NO ERROR HAD OCCURED. 


2.1.2 SAMPLE RUN-THROUGH 


LET'S SEE HOW ALL THIS WORKS IN A_ REAL SITUATION. RECALL THAT WE 
ENTERED THE COMMAND '‘'STA/PASS:1/FLAGS:HOE'’. THIS WOULD BE A VERY 
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED, THE 
ys: mamas, PASS WILL BE EXECUTED AND THE PROMPT WILL BE 


IF AN ERROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE PROMPT 
WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THIS POINT THERE 
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAIN. 


1. ISSUE ANOTHER ‘‘START’’ COMMAND (THUS GOING THRU ALL OF STEPS 
2. 3. 4, 5, AND 6 AGAIN) 


2. ISSUE A "RESTART’’ COMMAND (SAME AS START COMMAND EXCEPT THAT 
THE HARDWARE QUESTIONS ARE NOT ASKED) 


3. ISSUE A ‘‘CONTINUE’’ COMMAND (EXECUTION WILL RESUME AT_ THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS 
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR 
HALT OCCURED. NO QUESTIONS ASKED. 


4. ISSUE A_‘PROCEED’' COMMAND: EXECUTION WILL RESUME AT_ THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL 
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR). 


THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 


PRO/FLAGS: IER:LOE :HOE=0 


THIS WILL DO THE FOLLOWING: 
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TURN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG 
TURN ON THE LOE FLAG 
TURN OFF THE HOE FLAG 
RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 
THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND 
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 
WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 
1. START 
2. RESTART 
3. CONTINUE 


LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE ; 


CON/F LAGS :HOE : JIER=0:LOE=0 
THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OR TO END OF PASS. 


og OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE TWO 


1. START 
2. RESTART 


YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIN. 


THE FULL PRINTOUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE me 


R CZLPLA 


MEM (K) (D) 16 ? 
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DS-B>STA/PASS : 1/F LAGS : HOE D,O 
# UNITS (D) ? 1 D,0 
UNIT 1 D 
LP11 ADDRESS (0) 177514 ? D 
INTERRUPT VECTOR (0) 200 ? D 
CHANGE SW (L) ? Y D.O 

UN MANUAL INTERVENTION Tests @) ? ¥ D,O 
96 CHARACTER BAND (L) ? a) 


CAVFU OPTION INSTALLED (L) N ? D 
PERFORM MANUAL PRINTING SPEED MEASUREMENT (L) N ? D,O 
DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION (D) 4? D 
TESTING IN U.S.A. (L) ? Y 


LP25 HRD ERR 00009 TST “ SUB 000 PC: 003604 D 
cagA CSR 177514 UNIT 4 
DS~B>PRO/F LAGS : IER: LOE : HOE=0 D.0 
FOES ISISISIIOIOIOICIIOIUICIDISIOIUIOIOIIOICIOIOIDIOI IOI 

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE 

ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE 

THE ERROR UNTIL YOU HAVE LOCATED IT, THEN “C OUT. 
SAIS IOIOI I IIISISIIIISIIIUIOISIIOOIOIOIOIOIIOIOIOI IOI 

mn 0 
DS-B>CON/F LAGS : HOE : IER: LOE=0 D,O 
CHANGE SW (L) ? N D.0 
CZLPLA EOP 1 D 
DS-B>RESTART/PASS: 1 D,O 
CHANGE SW (L) ? N D,O 
2.2 HOW TO CREATE A CHAINABLE FILE 

THE a ~ eh & os wg ls FROM RELEASE ENGINEERING CANNOT BE RUN 
CHAIN MODE. T IS WHY IT BEARS THE EXTENSION ‘BIN’' INSTEAD OF "Bic 
pe ig WAY. HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM 


IT CONSISTS OF RUNNING THE PROGRAM WITH im octoen COMMAND ‘‘CCI'' 
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL_ THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE. AT THIS POINT YOU CAN DUMP 

+ Rg IT SITS IN CORE [O THE LOAD MEDIUM, WITH THE NEW 
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HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 


-R_UPD2 
RE 1 wei XXXXXX 


xC 

*LOAD DIAG.BIN 

XFER: 200 CORE :0,60602 
*START 200 

L-CLK (L) N ? 


DS-8>CCI 
# UNITS (D) ? 4 


CHANGE SW (L) ? N 
PTAB END: 60632 


REE KKREKEKKERKKREKREKKE 


*AT THIS POINT THE MACHINE HALTS AND* 
*YOU MUST RESTART AT ADDRESS XXXXXX* 


REKRRKEREREEKEEREKKEEKREEKEKEKKERERKEKEKEKKKEK 


*HICORE 60632 
CORE: 0,60632 
*DUMP DKO: DIAG.BIC 


THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 


-R DIAG.BIC 
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND. 
2.3 DETAILS OF COMMANDS AND SYNTAX 
2.3.1 TABLE OF COMMAND VALIDITY 


THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT 
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH: 


HOW ENTERED LEGAL COMMANDS 
1. OPERATOR ENTERED ‘RUN DIAG’ 


ZFLAGS 


DIAGNOSTIC HAS FINISHED ALL START 
ITS REQUESTED PASSES ~ TA 
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DISPLAY 
FLAGS 
ZFLAGS 


OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 


AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 


GS 
: FLAGS 


2.3.2 COMMAND SYNTAX 


RRA AERAAKEEAAAAEKEAAEKKEREEKEEERERRKEEKEEKEKEEEKEKKEKEEKREKKEKERRERKEKEKEKEKEKKKK 


STA(RT)/TESTS: TEST-LIST/PASS :PASS-CNT/F LAGS : FLAG=LIST/EOP:EOP-INCR 


RAERERAERERAAEREREKEAERAEREREKEEEEEKAEREEKEEEKKKEKEKEEKRREEKEEKEREREERRRKKEKK 


THE DIAGNOSTIC IN CORE IS. oer. IN ACCORDANCE  * pe ee ae 
SPECIFIED. THE MESSAGE '# UNITS?°’ IS or TED. THE START COMMAND MA 

BE ISSUED WHEN gay hy COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE 
FOLLOWING: A) OPERATOR TYPED ‘RUN DIAGNOSTIC’’ B) DIAGNOSTIC FINISHED 
EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D) OPERATOR 
ENTERED CONTROL/C. 


AFTER THE OPERATOR RESPONDS TO *# UNITS?°’, THE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED, THE QUESTIONS ‘‘CHANGE SW?*' IS 
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS. THEREFORE 
ioe ple rshECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 


THE SWITCH ARGUMENTS ARE AS FOLLOWS: 


“TEST-LIST’’ IS A FERENCE OF ae, NUMBERS (1:2 ETC.) OR RANGES 
DECIMAL NUMBERS (1-5: thy ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED, 
D BY COL THE a $s Ly FROM 1 TO THE 


Y BE SPECIFIED IN ANY 
RICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXEC''TE ALL TESTS. 


a IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 

PASSES. _A_PASS_ IS _ DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) veaneme ALL UNITS SUMBITTED. THE DEFAULT IS 
NON-ENDING EXECUTION 
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pale ait ka IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG>, <FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES: 


HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR IS ENCOUNTERED 

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 
WITHIN. THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 
SUBTEST, OR TEST) CONTAINING THE ERROR 

IER INHIBIT ERROR REPORT ING 

IBE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED te ryt Ss 

PRI poy ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TEST BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO QO ARE 
CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS NOT 
GIVEN ALL FLAGS ARE CLEARED. 


"EOP-INCR’’ IS A DECIMAL NUMBER INDICATING HOW OFTEN (CIN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE 
DEFAULT IS AT THE END OF EVERY PASS. 


RAERAAEEKAEAAEKEKAAEAKERAKEREAEREAKEEAEKAKEAREREREEEKRERERKEERKEEAEREEEEEEEEEEEKEEEREKEKEKEEREEKKEE 


RES(TART)/TEST: TEST-LIST/PASS :PASS~CNT /F LAGS : FLAG=LIST/EOP: EOP-INCR/UNI TS :UNIT=LIST 


RAERAAARAERAEERAEEREAKAKERAREKERAAAERAEERAEKKEEAAERKKEKARAEAEKEREKEREERAAERAERREEREERERKEREEKREKKEKKKE 


THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE a Sh gg 
SPECIFIED. HOWEVER, NEW P-TABLES ARE NOT BUILT. INSTEAD, THE ONES 


THE QUESTION "‘CHANGE SW?°’ IS ASKED,AND THE ANSWERS IF GIVEN BECOME THE 
NEW DEFAULTS. THE COMMAND MAY BE ISSUED WHEN COMMAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C. 


THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 
Ts Ae IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING 
1 THRU N (N = NUMBER OF UN 


UNITS BEING TESTED) SPECIFYING 
UNICH UNITS ARE TO BE TESTED. THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO 
hee ORDER IN WHICH THEY WERE BUILT. [HE UNITS SPECIFIED MUST 
HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND. THE 
MIT-LIST DEFAULTS TO “ALL THAT VE NOT BEEN DROPPED BY 
OPERA COMMAND’’, = THE EFFECT OF THE UNIT~LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO ‘‘ALL'’) OR 
THE NEXT RESTART. 


2. ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 
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PARR RRARRSSARRRASSESERR RRA AAR ARRAS ASRS DD SD SD 


CON( TINUE) /PASS : <PASS=CNT/FLAGS : <F LAG=LIST> 


PARSE RASASASAASSALALELA SEL A SARA AS ARRAS EDS SG 


COMMAND MODE MUST HAVE ee! ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL/C. THE EFFECT OF THE COMMAND IS TO GO TO a, BEGINNING OF THE 
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. 
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAME TERS 
MAY NOT BE CHANGED. 


THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 


1. DEFAULT FOR PASS-CNT IS THE UNSATISFIED PASS=-CNT FROM THE 
PREVIOUS START OR RESTART 


2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 


(AARSSARAASLASRARAS ASA LES SSS 


PRO(CEED) /FLAGS : <FLAG=LIST> 


(AR RASASARASALAL ASSL A LS SS DS 


COMMAND MODE MUST HAVE SEEN ENTERED VIA A HALT ON ERROR. THE EFFECT 
OF THE COMMAND IS_ TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT: 
1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 


(ARRAS ASZAALRASLALEAZERAAASASAAAASASASARASASLASSLAR ALARA SSSA AS SS SS | 


CCI/TEST: TEST-LIST/PASS :PASS=CNT/F LAGS : FLAG=LIST/EOP:EOP-INCR 


(ARABS SAASLAAALSAASLAAAAASARSLALALALASARA SALAS ER ASARA SEAL AS SSDS SE SE | 


THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT_ THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE 
MEDIUM WITH A BIc EXTENSION. 
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gs BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 

MANUALLY OR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A ‘‘START'' (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE: 
THE PRE=GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OR 
hey Thy? Mell (IN WHICH CASE THE PRE-GENERATED OPERATOR ANSWERS 
WIL ° 


IF RUN_IN CHAIN MODE, re sind EXECUTION WILL  COMMENCE IMMEDIATELY 
A MA § XXDP COMMAND ‘'.R DIAG''. THE COMMAND PROMPT 'DS-B8>'' WILL NOT 


ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC 
FILE IS RUN _ IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY. 


TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14.5K WORDS), A MACHINE SIZE 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 


(ARRAS ASASAAAR SSSA L ES ED 


DRO(P)/UNITS:UNIT=LIST 


RAE AEKEAERERKE 


THIS COMMAND IS NOT UTILIZED IN THIS DIAGNOSTIC. 


RERREREKRKEKEKKEKKEKE 


ADD/UNITS:UNIT=LIST 


RARER 


THIS COMMAND IS NOT UTILIZED IN THIS DIAGNOSTIC. 


RKEKKKEER 


PRI(NT) 


RREKEKK 


THIS COMMAND IS NOT UTILIZED IN THIS DIAGNOSTIC. 


* 
REREKAAEEEREERERAG RRRKKKKK 


DIS(PLAY) /UNITS:<UNIT=LIST> 


RERAAAARARAAERAEAEAARARERERAEKE 


THE HARDWARE P-TASLES FOR ALL Na UNDER TEST ARE PRINTED OUT IN’ THE 
FORMAT IN WHICH THEY WERE ENTERE 
OPERATOR *DROP’* COMMAND ARE SO DESIGNATED. 


aeeeeke 


FLA(GS) 


ceekkee . 


THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 


ReRKKEKK 


ZFL (AGS) 


ReKEKKEEEK 


SEQ 0015 
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ALL FLAGS ARE CLEARED. 


2.4 EXTENDED P-TABLE DIALOGUE 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE 1S REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION '# UNITS?’' IS ANSWERED (WITH THE NUMBER WN, 
SAY) SPACE IN CORE IS oye: FOR N P=TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT, AND THERE IS A _ ONE-TO-ONE CORRESPONDENCE 
feat. THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P=TABLE 


ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE 
P=TABLES ARE FILLED. _IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT 


BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS 
EXHAUSTED. 


ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED 
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW AsSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAYED IN THE FIRST TRIP. 


THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS 
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO 
THE STRING 6,7,8,9.10 (AN INCREMENT OF 1). IF THE VALUES oo 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 ( 
INCREMENT OF 2). 


NOW LET US SEE HOW WE COULD USE Me oy ie MEA TO nr ge Bs A SET 
OF P-TABLES. ASSUME THAT WE HAVE 4 LP25°S, AND THAT THERE ARE TWO 
HARDWARE PARAMETERS FOR EACH (TWO SLOTS IN THE P=TABLE, TwO 
HARDWARE QUESTIONS IN THE DIALOGUE). 
THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
# UNITS (D) ? 4 

T 1 


UNI 
LP11 ADDRESS: (0) ? 177514, 177520, 177524, 177539 
INTERRUPT VECTOR: (0) ? 200, 210, 220, 230 


THE DIALOGUE IS_ TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 4 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION. 


SEQ 0016 
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ERRORS ARE REPORTED ON THE CONSOLE TERMINAL WHEN AN ERROR pt a 
BY THE DIAGNOSTIC. THE DEVICE ADDRESS OF THE FAILING UNIT 

THE NATURE OF THE ERROR IS GIVEN_IN THE ERROR MESSAGE. OTHER 
INFORMATION INCLUDED ARE THE TEST NUMBER AND THE PROGRAM COUNTER 
ADDRESS WHERE THE ERROR OCCURRED. 


THE ERROR MESSAGES AID IN IDENTIFYING THE PROBLEM. THE FOLLOWING 
LIST PROVIDES A BRIEF DESCRIPTION OF EACH OF THE ERRORS. 


ERROR 
1 


DESCRIPTION 


"PRINTER ERROR"’ 
ERROR CONDITION IN THE PRINTER. 


"PRINTER NOT READY'' 
PRINTER NOT READY TO ACCEPT DATA. 


"PRINTER DID NOT INTERRUPT" 
FAILURE IN INTERFACE LOGIC. 


“LOADING PRINTER BUFFER DOES NOT CLEAR READY’ 
FAILURE IN INTERFACE LOGIC. 


"PRINTER INTERRUPTED AT SAME LEVEL AS THE 
PROCE SSOR"’ 
FAILURE IN INTERFACE LOGIC. 


"PRINTER ERROR" 
ERROR CONDITION IN THE PRINTER. 


"PRINTER NOT READY'' 
PRINTER NOT READY TO ACCEPT DATA. 


"PAPER LOW INTERLOCK SWITCH FAILURE’ 
FAULTY INTERLOCK SWITCH. 


"HAMMER BANK INTERLOCK aah FAILURE'’ 
FAULTY INTERLOCK SWITCH 


“CHARACTER BAND INTERLOCK SWITCH FAILURE*’ 
FAULTY INTERLOCK SWITCH. 


"DAVFU INCOMPLETE DATA ERROR NOT DETECTED’ 
DAVFU FAILED TO RECOGNIZE RECEIPT OF 
INCOMPLETE DATA. 


"DAVFU STOP CODE ERROR NOT DETECTED"’ 
DAVFU FAILED TO RECOGNIZE RECEIPT OF 
DATA THAT DID NOT INCLUDE A STOP BIT 


(ONE) CHARACTER. 


"*INTERRUPT sevice, FOR THE FOLLOWING 
DEVICE DID NOT OCCUR 


SEQ 0017 
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GLOBAL ERROR INDICATING INTERRUPT FOR 
DATA TRANSFER DID NOT OCCUR. 


14 "PRINTER STATUS ERROR’ 
GLOBAL ERROR INDICATING PRINTER ERROR 
CONDITION. 

15 “OUTPUT TIMEOUT ERROR" 


GLOBAL ERROR INDICATING TRANSMISSION 
OF LAST CHARACTER DID NOT OCCUR 
WITHIN A GIVEN TIME. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED. 


5.0 DEVICE INFORMATION TABLES 
DEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION. 


6.0 TEST SUMMARIES 


TEST 1 
iNTERFACE LOGI 


C 
VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU. 


TEST 2 
READY LINE INTERLOCKS 
VERIFIES OPERATION OF THE READY INTERLOCK SWITCHES. 


TEST 3 

FORMS LENGTH SELECTION 

VERIFIES ALL POSITIONS OF THE FORM LENGTH SELECT SWITCH FOR PROPER 
PAPER MOVEMENT. 


TEST 4 

PRINTING SPEED MEASUREMENT 

DETERMINES PRINTING SPEED ON THE BASIS OF THE PRINTING TIME INTERVAL 
AND THE NUMBER OF LINES PRINTED. 


TEST 5 
DAVFU ERROR DETECTION 
‘te: FOR TWO TYPES OF DAVFU ERRORS: 
- RECEIPT OF INCOMPLETE DATA. 
2: RECEIPT OF DATA NOT INCLUDING A STOP BIT (ONE) CHARACTER. 


TEST 6 
DAVFU LINE COUNT PAPER CONTROL 
VERIFIES LINE COUNT METHOD OF PAPER CONTROL USING THE DAVFU. 


TEST 7 
DAVFU CHANNEL SELECTION PAPER CONTROL 


SEES EE A ATT 


SEQ 0018 
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CHECKS DAVFU PAPER ADVANCE BY MEANS OF STOP BITS LOADED IN 
DAVFU MEMORY. 


TEST 8 

DATA TRANSFER PATHS 

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT TO 
THE PROCESSOR INTERFACE. 


TEST 9 
PRINTABLE CHARACTERS 
CHECKS FOR PROPER PRINTING OF ALL PRINTABLE CHARACTERS. 


TEST 10 
NON=PRINTABLE CHARACTERS 
CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS. 


TEST 11 
BAND PATTERN 
PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. 


TEST 12 

SPURIOUS HAMMER FIRING 

CHECKS FOR SPURIOUS HAMMER FIRINGS BY TAKING NOTE OF ANY 
PRINTING THAT MAY OCCUR OUTSIDE A WEDGE PATTERN. 


TEST 13 

PRINT CONTROL 

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE 
ARE DJSREGARDED. 


TEST 14 
CRITICAL PATH 
CHECKS FOR PROPER PRINTER OPERATION WITH A WORST CASE PATTERN. 


TEST 15 
CHECKS MULTIPLE LINE ADVANCE 
CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT. 


TEST 16 


CHARACTER ALIGNMENT 
CHECKS CHARACTER ALIGNMENT BY OVERPRINTING EACH LINE. 


& 
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-TITLE CZLPLAO LP25 DIAGNOSTIC 
-ENABL AMA 
-SBTTL IDENTIFICATION 


PRODUCT CODE: AC-E634A=MC 
PRODUCT NAME : CZLPLAO LP25 DIAG 
MAINTAINER: SMALL SYSTEMS DIAGNOSTICS 
AUTHORS : JOHN CHATAL IAN 

DONALD RICE 

RALPH SCHAUBER 
DATE - 27-SEP-79 


COPYRIGHT (C) 1979 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM 
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG!TAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DFC. 


SEQ 0020 
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1055 

1056 7 

724 ; FUNCTIONAL DESCRIPTION 

1059 ; THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LP25 LINE PRINTER 

1060 AND ITS ASSOCIATED M7258 CONTROL UNIT WHICH IS INTERFACED TO A PDP=11 CPU. 

\Re> 2 THE DIAGNOSTIC HAS PROVISION TO TEST UP TO SIXTEEN UNITS AT A TIME. 

1063 THE PROGRAM CONSISTS OF SIXTEEN TESTS, THREE OF WHICH ARE FOR THE DAVFU OPTION. 

1064 THREE OF THE PRINTER TESTS INVOLVE MANUAL INTERVENTION. TWO OF THE DAVFU TESTS 

oF REQUIRE INTERVENTION BY THE OPERATOR. 

Hs 14 ee IS COMPATIBLE TO THE PDP=-11 DIAGNOSTIC SUPERVISOR, ACT/SLIDE, AND 
SXXDP+, 

1069 : 

1070 -- 

1071 

1072 

1073 

1074 ; VERSION A-0 27-SEP-79 R. SCHAUBER 

1075 

1076 

1077 ; HISTORY REV. A-0 INITIAL RELEASE 

6 s REV-C SUPERVISOR / XXDP+ COMPATABLE 
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1082 -TITLE SA ge LP25 TEST 
1083 .SBTTL PROGRAM HEAD 


1084 

1 os SvC: 
1086 

1087 SMALL STRUCT 
088 RUCT 


1089 $LSTIN= 1 
\ooy $LSTTAG= 1 
1092 SVCINS= sLIST INSTRUCTIONS, SHIFTED RIGHT 
Ha TEST TA - SHIFTED RIGHT 
1095 ; . SHIFTED RIGHT 
1096 SVCTAG= SLIST OTHER TAGS , SHIFTED RIGHT 


-ENABL ABS,AMA 
-=2000 


INITIALIZE SUPERVISOR MACROS 
; STRUCTURED MACRO PACKAGE 


$33 


BGNMOD 
POINTER BGNSW,BGNSF T 
HEADER (CZLPL.A,0,60,1,340 


— os etd td = 


100 
101 
102 
103 
104 
(4) 


LSREV:: 
LSDEPO:: 
LSUNIT:: 


LSTIML:: 
000060 : 
LSHPCP: : 


032276 P 
LSSPCP:: 


032356 ‘ LSSOF T 
LSHPTP:: 

002232 LSHW 
LSSPTP:: 

002244 ‘ L$SwW 
LSLADP: : 

033020 ’ LSLAST 
LSSTA:: 

000000 0 
L$CO:: 

000000 0 

. LSDTYP:: 
0000901 1 


000000 
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(5) 002036 LSAPT:: 

(4) 002036 000000 «WORD 0 
(5) 002040 LSDTP:: 

(4) 002040 002132 ~WORD LSDISPATCH 
(5) 002042 LSPRIO:: 

(4) 002042 000340 «WORD 340 
(5) 002044 LSENVI:: 

(4) 002044 000000 «WORD 0 
(5) 002046 LSEXP1:: 

(4) 002046 000000 -WORD 0 
(5) 002050 LSMREV:: 

(4) 002050 003 -BYTE CSREVISION 
(3) 002051 003 -BYTE C$EDIT 
(5) 002052 LSEF:: 

(4) 002052 000000 -WORD 0 
(5) 002054 000000 «WORD 0 
(5) 002056 L$SPC:: 

(4) 002056 000000 ’ -WORD 0 
(5) 002060 LSDEVP: : 

(4) 002060 002222 -WORD LSDVTYP 
(5) 002062 LSREPP: : 

(4) 002062 000000 -WORD 0 
(5) 002064 LSEXP4:: 

(4) 002064 000000 «WORD 0 
(5) 002066 LSEXP5:: 

(4) 002066 000000 «WORD 0 
(5) 002070 LSAUT:: 

(4) 002070 000000 «WORD 0 
(5) 002072 LSDUT:: 

(4) 002072 000000 «WORD 0 
(5) 002074 LSLUN:: 

(4) 002074 000000 «WORD 0 
(5) 002076 LSDESP:: 

(4) 002076 002172 ~ WORD LSDESC 
(5) 002100 LSLOAD: : 

(4) 002100 104035 EMT ESLOAD 
(5) 002102 LSETP:: 

(4) 002102 000000 -WORD 0 
(5) 002104 LSICP:: 

(4) 002104 005020 -WORD LSINIT 
(5) 002106 LSCCP:: 

(4) 002106 006266 -WORD LSCLEAN 
(5) 002110 LSACP:: 

(4) 002110 002236 -WORD LSAUTO 
(5) 002112 LSPRT:: 

(4) 002112 002122 «WORD LSPROT 
(5) 002114 LSTEST:: 

(4) 002114 000000 - WORD 

(5) 002116 LSDLY:: 

(4) 002116 000000 . WORD 

(5) 002120 LSHIME:: 

(4) 002120 000000 -WORD 0 
1105 

1106 : 

Hy A ; THE FOLLOWING IS A LOAD PROTECTION TABLE 
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1109 002122 BGNPROT 
(3) 002122 L$PROT:: 
1110 002122 000000 -WORD 0 
1111 002124 177777 -WORD <1 
1112 002126 177777 <WORD <1 
1113 002130 ENDPROT 
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-SBTTL DISPATCH TABLE 


+ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF — TEST. 
J IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST 


_— eS as as SS SS eS 
rae at te 
BMI em em Se 


DISPATCH 16 :X= NUMBER OF TESTS ; 
LSDISPATCH: : 
WORD 


~N—OVOONGOuU 


[FOR USE ON REVISION C OF THE SUPERVISOR 
DESCRIP <LP25 PRINTER DIAGNOSTIC> 
LSDESC:: 


050114 032462 050040 ° /LP25 PRINTER DI 


044522 
042040 
051517 


DEVTYP <LP25> 
LSDVTYP:: 


050114 032462 * /LP25/ 
002230 
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-SBTTL DEFAULT HARDWARE P-TABLE 


p++ 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE RUN-TIME P-TABLE. 


BGNHW DFPTBL 
000002 L10001=L $HW/2 
LSHW: : 


DFPTBL:: 
177514 WORD 177514 ;LP25 REGISTER ADDRESS 
000200 -WORD 200 ;LP25 INTERRUPT VECTOR 


‘INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED 


ee ed ed ed od wd ed 
mama os os SS SS SS 


ENDHW 
L10001: 


LSAUTO: : 
NOP ; NOT USED 
ENDAUTO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 


L10002: 


vweNFWNYy—-OvUMa~ NO ARETE SESE 


CN a a ot A a oo I RA 
WWVIMUMWNUIVI ES BWE ERE RR EW 
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:NO DAVFU_ DEFAULT 
FOR AUTOMATIC tee! SPEED 
FOR MANUAL PRIN 


T SPEED TEST 
S AUTOMATIC DEFAULT VALUE 
002254 000004 PERIOD: .WORD 4 [OPERATOR TO SELECT TIMING VALUE 
FROM 4 TO 60 SECONDS. INITIAL 
[DEFAULT VALUE IS 4 SECONDS. 


002256 000001 USA: -WORD 1 : 1 FOR TESTING IN U.S.A 
0 FOR TESTING IN G.B./EUROPE 
; a DIFFERENT BAND + ea * 


: -SBTTL SOFTWARE P-TABLE 
1 3 
1 ; THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
. ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1 
1 002242 BGNSW SFPTBL 
002242 000007 «WORD 1L10003-L$SW/2 
002244 L$SwW:: 
002244 SFPTBL:: 
002244 000000 INHINT: .WORD OQ 3:0 IF NO INTERVENTION TESTS 
31 IF MANUAL INTERVENTION TESTS 
;DEFAULT IS NO 
002246 000001 CHRBND: .WORD 1 70 IF 64 CHARACTER BAND 
31 IF 96 CHARACTER BAND 
796 CHARACTER BAND DEFAULT 
VFUOPT: .WwORD 0 3:0 IF NO DAVFU OPTI 
31 IF DAVFU OPTION INSTALLED 


002252 000000 MANSPD: .WORD 0 


> OF 


ee ad od 1 I 
Nh kd a at td ad ds th I th A St os ot I SI a 


002260 000005 MAXERR: .WORD 5 UTODROP ERROR COUN 

> ERROR COUNT en ras MAXERR THE UNIT WILL BE DROPPED FROM TEST 
002262 ENDSwW 
002262 L10003: 


OO WOO 00 00 Cd G0 CO 00 Co SIN NINN NN NNSA AAA NWN AAAAUIVIWN 
S 
Nm 
Nm 
Ww 
So 


—_ 
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> 4 -SBTTL 1/0 MACRO DEFINITIONS 

1193 «MACRO OUTPUT ADD,BFCNT,ERR 

1194 MOV ADD ,BUF ADD ;SAVE THE BUFFER ADDRESS 
1195 MOV BF CNT fon BUFFER BYTE COUNT BF CNT 
1196 MOV #-1 ,PRINTR ; OUTPUT TO ALL UNITS 
1197 -IF B ERR 

1198 MOV AMLPERR ,ERRSVC 

1199 . ENDC 

1200 .IF NB ERR 

1201 MOV ERR ,ERRSVC 

1202 -ENDC 

1203 JSR PC, JOCTRL :CALL THE DRIVER 

1204 -ENDM OUTPUT 

1205 

1206 

1207 -MACRO OQUTPUI ADD,BFCNT,ERR,UNIT 

1208 MOV ADD , BUF ADD SAVE BUFFER ADDRESS 
1209 MOV BF CNT ,BUF CNT ;BUFFER BYTE COUNT BF CNT 
1210 -IF BERR 

1211 MOv #MLPERR,ERRSVC 

1212 -ENDC 

1213 IF NB ERR 

1214 MOV ERR, ERRSVC 

1215 -ENDC 

1216 MOV UNIT ,PRINTR ; SUPPLY UNIT NUMBER 
1217 JSR PC, IOCTRL CALL THE DRIVER 

1218 . ENDM 

1219 

1220 

1221 002262 ENDMOD 
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ty -SBTTL GLOBAL AREAS 
1225 002262 BGNMOD 
i 
1228 : "THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES 
1229 7 THAT ARE USED IN MORE THAN ONE TEST. 
1230 = 
1231 
“a 002262 EQUALS 
a) ; BIT DIFINITIONS 
(1) 100000 B1IT15== 100000 
(1) 0000 B1T14== 40000 
(1) 020000 B1T13== 20000 
(1) 010000 BIT12== 10000 
(1) 000 BIT11== 4000 
(1) 002000 BIT10== 2000 
(1) 001000 BITO9== 1000 
1) 000400 BITO8== 400 
(1) 000200 BITO7== 200 
(1) 000100 B1T06== 100 
(1) 000040 BITOS== 40 
(1) 000020 BIT04== 20 
(1) 000010 B1T03== 10 
(1) 000004 BITO2== 4 
(1) 000002 BITO1== 2 
Sf. 000001 BITOO== 1 
(1) 001000 BIT9== BITO9 
(1) 000400 BIT8== BITO8 
(1) 000200 BIT7== BITO7 
(1) 000100 BIT6== BITO6 
(1) BIT5== BITOS 
(1) 000020 BIT4== BIT04 
(1) 000010 BIT3== BIT03 
(1) 000004 BIT2== BITO2 
(1) 000002 BIT1== BITO1 
at 000001 BITO== BITO00 
(1) ; EVENT FLAG DEFINITIONS 
Me ; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
(1) 000040 EF .START== 32. ; START COMMAND WAS ISSUED 
(1) 000037 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
(1) 000036 EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
(1) 000035 EF .NEW== 29. 5 NEW PASS HAS BEEN STARTED 
a 000034 EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 
(1) : 
Hh ; PRIORITY LEVEL DEFINITIONS 
(1) 000340 PRI07== 340 
(1) 000300 PR1I06== 300 
(1) 000240 PRIO5== 240 


E 
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(1) 000200 PRI04== 200 
(1) 000140 PRIO3== 140 
(1) 000100 PRIO02== 100 
(1) 000040 PRIOQ1== 40 
a 0000C0 PRIOO== 0 
she ; OPERATOR FLAG BITS 
(1) EVL== 4 
(1) 000010 LOT== 10 
(1) 000020 ADR== 20 
(1) 000040 IDU== 40 
(1) 000100 I SR== 100 
(1) 009200 UAM== 200 
(1) 000400 BOE == 400 
(1) 001000 PNT== 1000 
(1) 002000 PRI == 2000 
(1) 000 IXE== 4000 
(1) 010000 IBE== 10000 
(1) 020000 IER== 20000 
(1) 0000 LOE== 0000 
(1) 100000 HOE== 100000 
1236 
1240 
1$¢) sPRIORITY LEVEL DEFINITIONS 
1243 000340 PRIO7= = 340 
1244 000300 PR1I06== 300 
1245 000240 PRIO05== 240 
1246 000200 PR1I04== 200 
1247 000140 PR1I03== 140 
1248 000100 PRIO2== 100 
1249 000040 PRIO1== 40 
1250 000000 PRIOO== 0 
I 
ith ;GLOBAL ERROR CODES FOR USE BY GENERAL ERROR ROUTINE 
1255 000001 STATER= 1 ; TRANSMITTER STATUS ERROR IN OUTPUT 
1256 TIMOUT= 2 S TIMEOUT ERROR IN IO DRIVER MODULE 
1257 : THIS ERROR INDICATES THE LAST CHARACTER 
1258 WAS NOT TRANSMITTED WITHIN A GIVEN TIME 
1259 000003 NOINTR= 3 GROSS TIME OUT ERROR. THE SPECIFIED DID NOT 
1260 ; INTERRRUPT. THEREFORE IO DRIVER MODULE WAS 
103 ‘NOT CALLED 
se? -SBTTL GENERAL REGISTER USAGE DEFINITIONS 
1265 RO RESERVED FOR USE BY THE MACRO PACKAGES 
1266 ;Rl MAXIMUM NUMBER OF UNITS TO TEST LSUNIT-1 
1267 iR2 UNIT NUMBER BY 2. USED TO CALCULATE OFFSET INTO PROPER 
1268 s PRINTER TABLE 
1269 7R3 TEMPORARY STORAGE 
1270 RS ie ” 
1271 rR5 
1272 sR6 STACK POINTER 


SEQ 0030 
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1273 3R7 PROGRAM COUNTER 
1274 é 
1275 
1276 
1277 : 
iss ; LP STATUS TABLE BIT DEFINITIONS 
1280 ACTIVE = 100000 
1281 000200 DROPED = 000200 
1282 2000 ERROR = 002000 


000100 
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GLOBAL DATA SECTION 
-SBTTL GLOBAL DATA SECTION 
FLAG: -WORD 0 3<CR> FLAG FOR USE BY SUPERVISOR 
LINCNT: .WORD 0 ;LINE COUNTER 
LSTCNT: .WORD 0 
CCNT: -WORD 0 
STRCNT: .WORD 0 
CHRGEN: .WORD 0 
3 -WORD 0 ;UNIT COUNTER FOR SINGLE UNIT TESTING 
LUNIT: .WORD 0 ;UNIT COUNTER FOR ERRORS 
A aig NOT USING THE OUTPUT 
PTABAD: .WORD 9 ;P-TABLE ee" — BY GPHARD 
PRINTR: .WORD 0 mie LINE NO 
CLKTYP: .WORD 0 ;CLOCK TYPE CONTROL WORD 
:1= NO CLOCK AVAILABLE 
32= KW11-L LINE CLOCK 
;3= KW11-P PROGRAMABLE CLOCK 
CLOCKP: .WORD 0 LOCK P-TABLE ADDRESS 
CLKCSR: .WwORD 0 = CLOCK CSR ADDRESS 
CLKSET: .WORD 0 ; CLOCK TIME SET REG ADDRESS 
CLKVEC: .WORD 0 :CLOCK VECTOR ADDRESS 
CLKENA: .WORD 0Q ;CLOCK ENABLE BITS 
ERRCOD: .WORD 0 ZERROR CODE TYPE FOR GENERAL 
ERROR ROUTINE 
ERRFLG: .WORD 0 ; EXPECTED ERROR INDICATOR 
UUT: «WORD 0 ; # UNITS ACTUALLY UNDER 


TEST 
sEXITS BACK TO IO DRIVER EQUAL 
71 IF ERROR WAS EXPECTED. 


INDEX: .WORD Q 
VFUCMD: .WORD 0 


[MACRO VARIABLES 


BUFADD: .WORD 0 oO the =e OF DATA TO BE SENT 
BUFCNT: .WORD 0 ;NUMBER OF BYTES TO TRANSFER 


[LP25 PARAMETER WORD TABLES 
LPCSR: .REPT 16. : ADDRESS OF CSR FOR EACH LP11 
“ WORD 


-ENDR 
LPVEC: .REPT 1 
-WORD 0 
-ENDR 
LPBUF: .REPT 16, ; DATA BUFFER REGISTER ADDRESS 
-WORD 0 
-ENDR 
STATUS: .REPT 16. ; UNIT STATUS 


6 ; INTERRUPT VECTOR ADDRESS 


SEQ 0032 
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1341 .WORD 0 

1342 “ENDR 

1343 002534 000020 CURADD: :REPT 16. ; CURRENT ADDRESS OF OUTPUT DATA 
1344 WORD 0 

1345 ZENDR 

1346 002574 000020 CURCNT: .REPT 16. ; CURRENT COUNT TO OUTPUT 
1347 WORD <1 

1348 ZENDR 

1349 002634 000020 LPINTR: :REPT 16. ; INTERRUPT ROUTINE ADDRESS 
1350 WORD 0 

1351 “ENDR 

1352 002674 000000 ERRSVC: .WORD 0 ; ERROR ROUTINE DISPATCH ADDRESS 
1353 002676 000020 ERRTBL: : .REPT 16. > ERROR COUNT FOR EACH UNIT 
1354 -WORD 0 

1355 “ENDR 

1356 

1357 002736 000000 WORK:: .WORD 0 : WORK AREA 

1358 002740 00000 WORK1: .WORD 0 

1360 

1361 

136e .SBITL OUTPUT BUFFER 

1364 [140 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA 

1366 

1367 002742 000226 OUTBUF: .REPT 150. 

1368 “BYTE 0 

1369 “ENDR 

1370 
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13% .SBTTL GLOBAL TEXT SECTION 
1374 -NLIST BEX 
1375 ++ 
1376 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1377 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
138 ; MORE THAN ONE TEST. 
1380 003170 051120 047111 042524 CSRERR: .ASCIZ /PRINTER ERROR/ 
1381 003206 051120 047111 042524 RDYERR: .ASCIZ /PRINTER NOT READY/ 
1382 003230 040520 042520 020122 PAPSWI: .ASCIZ /PAPER LOW INTERLOCK SWITCH FAILURE/ 
1383 003273 10 6501 042515 BNKSWI: .ASCIZ /HAMMER BANK INTERLOCK SWITCH FAILURE/ 
1384 003340 044103 051101 041501 WI: .ASCIZ /CHARACTER BAND INTERLOCK SWITCH FAILURE/ 
1385 003410 051124 047101 046523 INTER1: . Z /TRANSMIT INTERRUPT TIMEOUT/ 
1386 003443 20 5 052116 TXERR: .ASCIZ /PRINTER STATUS ERROR/ 
1387 052517 050124 052125 OUTTIM: .ASCIZ /OUTPUT TIMEOUT ERROR/ 
1388 003515 451 020124 TXNOI -ASCIZ /UNIT FAILED TO INTERRUPT/ 
1389 003546 046101 020114 047125 UUTEQ0O IZ /ALL UNITS HAVE BEEN DROPPED. .RESTART. 
1390 00361 022516 044501 VFUSEL: .ASCII /%NZAINSURE THAT VFU-FLS SWITCH ON EACH UNIT IS IN THE / 
1391 003703 022516 021191 VFUSE1: .ASCIZ /%NZA'‘VFU'’ POSITION. ZN/ 
1392 003732 EVEN 
1393 
1394 
1395 
1396 : 
1397 
1398 -LIST BEX 
1399 : 
9 ; FORMAT STATEMENTS USED IN PRINT CALLS 
' ° 
1402 


1403 003732 040445 050114 030461 LPDROP: .ASCIZ /%ALP11 UNIT %D2%A DROPPED FROM TEST%N/ 


003762 020104 051106 046517 
003770 052040 051505 022524 
003776 000116 

1404 

1405 

1406 
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-SBTTL GLOBAL SUBROUTINES SECTION 


p++ 
; THE GLOBAL SUBROUTINE SECTION er THE SUBROUTINES 
; THAT ARE USED BY MORE THAN ONE T 


3 


s+¢ 
; FUNCTIONAL DESCRIPTION: 

: SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION. 

: PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT: 


"ERROR AT CSR XXXXXX UNIT YY"" 


WHERE XXXXXX= DEVICE CSR ADDRESS 
YY= UNIT NUMBER THAT FAILED 


ed ae ae ad cad aed td ce a eed 
oP or ar br bP ar bP >t bt ber 
fo 2 os ss 

WONAUSWN—O 


o 


CALLING ware. 
PC, toke” 
REQUIRED” PaRAne? ERS 
ERRCOD MUST BE SET TO ONE OF THE ERROR CODES DESCRIBED 
UNDER ERROR CODES. 


R2 IS USED INTERNAL TO THE ROUTINE. 
THE ROUTINE DOES A SAVE ON R2 
AND RESTORES IT PRIOR TO EXITING. 


: SELECT ERRCOD OF 3 VERIFY ;SELECT PROPER MESSAGE FORMAT 
013746 002322 MOV ERRCOD ,-(SP) 
00340 50000$ 


021627 000003 (SP) #3 
003402 50001$ 
50000$ : 


012716 000004 MO #4, (SP) 
50001$: co 


PC, (SP) 
a(SP)+,PC 


50006$-50002$ 
50005$-50002$ 
50004$-50002$ 
50003$-50002$ 


AD 
50002$: 


CASE 1 STATUS ERROR 


LET ERRTBL(R2) := ERRTBL(R2) + #1 
005262 002676 ERRTBL (R2) 
LET L$LUN := R2 SHIFT -1 
010237 002074 R2.L$LUN 
006237 002074 L$LUN 
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1446 004052 ERRHRD 14,TXERR 
(4) 004052 1046456 : TRAP CSERHRD 
(5) 004054 000016 WORD 14 
(5) 004056 903443 “WORD TXERR 
£33, 904060 000009 “WORD 0 
1448 004062 CASE 2 OUTPUT TIMEOUT ERROR 
(4) 004062 000425 BR 50003$ 
(4) 004064 50005$: 
1449 004064 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(6) 004064 005262 002676 INC —_—_ ERRTBL(R2) 
1450 004070 , LET LSLUN := R2 SHIFT -1 
(4) 004070 010237 002074 MOV —sR2, LSLUN 
(7) 004074 006237 002074 ASR —L$LUN 
1451 004100 ERRHRD. 15,OQUTTIM : 
(4) 004100 104456 TRAP CSERHRD 
(5) 004102 000017 : WORD 1 
(5) 004104 003470 7 “WORD OUTTIM 
{23 904106 900000 “WORD 0 
1453 004110 CASE 3 
(4) 004110 000412 BR 500038 
(4) 004112 50004$: 
454 ; NEVER RECIEVED THE INTERRUPT 
1455 004112 | LET ERRTBL(R2) := ERRTBL(R2) + #1 
(6) 004112 005262 002676 INC _ ERRTBL(R2) 
1456 004116 LET LSLUN := R2 SHIFT -1 
(4) 004116 010237 002074 MOV —R2,, LSLUN 
(7) 004122 006237 002074 ASR —LSLUN 
1457 004126 ERRHRD 16, TXNOIN 
(4) 004126 104456 TRAP CSERHRD 
(5) 004130 000020 WORD 16 
(5) 004132 003515 “WORD TXNOIN 
(5) 004134 000000 “WORD 0 
1458 
1459 
1460 
1461 004136 ENDSELECT 
fg 004156 | 500038: 
1463 004136 IF ERRTBL(R2) GT MAXERR THEN 
(6) 004136 026237 002676 002260 CMP ss ERRTBL(R2) .MAXER 
(9) 004144 003402 BLE 500078 
1464 004146 004737 004656 JSR PC,DROPIT ; MAXIMUM ERROR COUNT EXCEEDED ! 
1465 004152 ENDIF 
(4) 004152 500078: 
466 004152 LET STATUS(R2) := STATUS(R2) CLR.BY #ERROR 
(6) 004152 042762 002000 002474 BIC ERROR, STATUS (R2 
1467 004160 . LET ERRCOD := #0 
(4) 004160 005037 002322 CLR —ERRCOD 
1468 004164 000207 RTS — PC AND EXIT 
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1470 -SBTTL 1/0 DRIVER 


1475 “THE 1/0 DRIVER on ee S INVOKED BY MEANS OF THE INTERRUPT SYSTEM. 
1476 :CALL TO sm JMP IODR 


1478 SENTER ROUTINE WITH R2 SET UP TO DESIRED UNIT *2. R2 IS USED 
479 ;TO CALCULATE OFFSET INTO PROPER TABLE. 
an :R1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST. 


: CHECK FOR ERROR FLAG IN STATUS REG. 


66 1ODRV: IF #BIT15 NOTSETIN @LPCSR(R2) THEN 
66 032772 100000 002340 BIT #B1T15,aLPCSR(R2 
001045 500108 


1488 : IF COUNT NOT ZERO SEND NEXT BYTE 


1 004176 000240 NOP 3 eI I III III III IOI III IOI IOI I 
1491 004200 IF CURCNT(R2) GT #0 THEN 
(6) 004200 005762 002574 TST CURCNT (R2) 
(9) 004204 003417 BLE 50011$ 
1492 004206 LET @LPBUF(R2) :B= @CURADD(R2) 
(4) 004206 117272 002534 002434 MOVB @CURADD (R2) , aL PB 
1493 004214 — LET CURADD(R2) := CURADD(R2) + #1 
br 004214 005262 002534 INC CURADD (R2) 


1 ; 
1495 ; ENABLE INTERRUPT FOR NEXT BYTE 


1497 004220 LET STATUS(R2) := STATUS(R2) SET.BY #ACTIVE 

(6) 004220 052762 100000 002474 BIS #ACTIVE,STATUS(R 
1498 004226 LET CURCNT(R2) := CURCNT(R2) - #1 

(6) 004226 005362 002574 : DEC CURCNT (R2) 
1499 004232 000240 NOP SOAS IIDIOIIUIOIOIIUIDIOIIUIUIIIOIOIISIDIOIOI ODIO ISIE 

1500 004234 LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100 

(6) 004234 052772 000100 002340 BIS #100, aLPCSR(R2) 
1501 004242 ELSE 

(4) 004242 000421 BR 50012$ 

(3) 004244 50011$: 

1502 004244 1F CURCNT(R2) EQ #0 THEN 

(6) 004244 005762 002574 TST CURCNT (R2) 

(9) 004250 001010 BNE 50013$ 

1503 004252 LET @LPBUF(R2) :B= #0 : PAD WITH TRAILING NUL 

(4) 004252 105072 002434 CLRB @L PBUF (R2) 

1504 004256 LET CURCNT(R2) := CURCNT(R2) - #1 

(6) 004256 005362 002574 DEC CURCNT (R2) 

1505 004262 LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100 

(6) 004262 052772 000100 002340 BIS #100, a@LPCSR(R2) 
1506 el se’ INTERRUPT ONE MORE TIME 


(4) 004270 000406 | BR 50014$ 
(3) 004272 500138: 
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; ALL DONE, CLEAR ACTIVE & DISABLE INTERRUPTS 
LET STATUS(R2) := STATUS(R2) CLR.BY ACTIVE 
042762 100000 002474 MACTIVE,STATUS(R 
LET @LPCSR(R2) := @LPCSR(R2) CLR.BY #100 
042772 000100 002340 new BIC #100, a@LPCSR(R2) 
50014$: 


ENDIF 
50012$: 
ELSE 


SEREERSSNN 


Ww 
_— 
So 


50010$: 

; CLEAR ERROR CONDITION, ENABLE INTERRUPTS 
> SET ERROR FLAG 
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 

052762 002474 #ERROR , STATUS (R2 
LET @LPCSR(R2) := #100 

012772 002340 ) #100, a@LPCSR(R2) 


ENDIF 
50015$: 
POP R2 


012602 (SP) +,R2 
000002 


RTI 
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002012 
002074 


000001 
002304 


TROL 
-SBTTL 1/0 CONTROL 
p++ 


THE I/0 CONTROL SUBROUTINE IS A a gy — MANAGER. 
THIS ROUTINE < 8 ae BY A JSR FROM O CAL 
INPUTS: PRINT 1 FOR 


BUFADD ADDRESS OF MESSAGE TO PRINT 
BUFCNT BYTE COUNT TO TRANSMIT TO PRINTER 


ERRSVC ADDRESS OF ERROR SERVICE SUBROUTINE 


IOCTRL: PUSH R2,R3 


; IF PRINTR IS -1 QUE OUTPUT TO ALL — SELECTED 
; OTHERWISE TO UNIT NUMBER IN PRINTR 


IF PRINTR EQ #=-1 THEN 
177777 


LET R3 := LSUNIT 
LET L$LUN := #0 
ELSE 


BR 
50016$: 


LET R35 := 
LET LS$LUN := PRINTR 
ENDIF 


002074 


50017$: 


: REPEAT TILL R3 = 0 
CTLLOP: - 
IF R3 EQ #0 THEN 

INLINE <JMP CTLEND> 
ENDIF 


50020$: 


> USE R2 AS AN INDEX INTO THE UNIT TABLES 
LET R2 := LSLUN SHIFT 1 


LET ERRCOD := #0 


SEQ 0039 


R2,-(SP) 
R3,-(SP) 


PRINTR,A=1 
50016$ 


LSUNIT ,R3 
LSLUN 
50017$ 


#1,R3 
PRINTR,LSLUN 


LSLUN,R2 
R2 


ERRCOD 
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130 ; IF THE UNIT HAS BEEN DROFPED SELECT THE NEXT UNIT 
1562 004412 IF #DROPED NOTSETIN STATUS(R2) THEN 

(6) 004412 032762 000200 002474 BIT #DROPED , STATUS(R 
1803 004420 001103 BNE 50021$ 
1208 TEST FOR DVC ERROR BIT SET 
1566 004422 IF #BIT15 SETIN @LPCSR(R2) THEN 

(6) 004422 032772 100000 002340 BIT #B1T15,aLPCSR(R2 
(9) 004430 001404 BEQ 50022$ 

1567 004432 LET ERRCOD := #STATER ; STATUS REG ERROR BIT 15 SET INC 

(4) 004432 012737 000001 002322 MOV #STATER, ERRCOD 
1568 004440 ELSE 

(4) 004440 000450 BR 50023$ 

1559 004442 50022$: 
130 ; MAKE SURE FREVIOUS MSG IS DONE 
1572 004442 IF CURCNT(R2) GE #0 THEN 

(6) 004442 005762 002574 TST CURCNT (R2) 

(9) 004446 002445 BLT 50024$ 

1573 004450 IF MACTIVE NOTSETIN STATUS(R2) THEN 

(6) 004450 032762 100000 002474 BIT MACTIVE,STATUS(R 
S44 004456 001004 BNE 50025$ 

13h ; OUTPUT WAS QUEUED BUT I/0 DRIVER WAS NEVER INVOKED (VIA INTERRUPT) 
1577 004460 LET ERRCOD := A#NOINTR ; NO INTERRUPT 

(4) 004460 012737 000003 002322 MOV #NOINTR,ERRCOD 
1578 004466 ELSE 

(4) 004466 000435 BR 50026$ 

(3) 004470 50025$: 

1579 004470 WHILE #ACTIVE SETIN STATUS(R2) 9O 

(4) 004470 50027$: 

(6) 004470 032762 100000 002474 BIT MACTIVE ,STATUS(R 
(9) 004476 001431 BEQ 50030$ 

1580 004500 DELAY 100. 

(2) 004500 012727 000144 MOV #100. .(PC)+ 

(2) 004504 000000 -WORD 0 

(2) 004506 013727 002116 MOV LSDLY,(PC)+ 

(2) 004512 000000 - WORD 

(2) 004514 005367 177772 DEC -6(PC) 

(2) 004520 001375 BNE 74 

(2) 004522 005367 177756 DEC -22(PC) 

mot 004526 001367 BNE -720 

I 3 ALLOW APPROX 2.5 SEC FOR BAND STARTUP 

1584 004530 LET STATUS(R2) := STATUS(R2) + #1 

(6) 004530 005262 002474 | INC STATUS (R2) 

1585 004534 IF MOVFLO SETIN STATUS(R2) THEN 

(6) 004534 032762 000100 002474 BIT #OVFLO,STATUS(R2 
(9) 004542 001406 BEQ 50031$ 

1586 004544 LET ERRCOD := #TIMOUT 

(4) 004544 012737 000002 002322 MOV #TIMOUT ,ERRCOD 
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LET STATUS(R2) 


:= STATUS(R2) CLR.BY 
BIC 


SEQ 0041 


MACTIVE 
MACTIVE ,STATUS(R 


wu 
au 
onr 


ENDIF 
ENDDO 


50031$: 


BR 
50030$: 


50026$: 
50024$: 
50023$: 


EROeSSS 


000743 50027$ 
ENDIF 
ENDIF . 
ENDIF 


IF ERRCOD NE #0 THEN 


m 


VROLVVL 


005737 
001403 


TST 


BOS SSO SSR EER ERE 


MVYInnwIwiy 


002322 ERRCOD 
‘ 50032$ 


& 


+ REPORT THE ERROR 
004777 : 
000415 


176100 JSR 


ELSE 


PC,@ERRSVC 


38 


574 
50033$ 
50032$: 


; Q UP THE MESSAGE AND ENABLE INTERRUPTS 
; THE 1/0 DRIVER WILL PICK UP FROM HERE. 
LET CURADD(R2) := BUFADD 
013762 002334 002534 
1604 004604 LET CURCNT(R2) BUF CNT 
604 013762 002336 002574 MOV 
LET STATUS(R2) := STATUS(R2) CLR.BY #177 
042762 000177 002474 BIC 
000240 


052772 


Be 


BUF ADD , CURADD (R2 
BUF CNT , CURCNT (R2 
#177, STATUS (R2) 


MOV 


NOP OOS IOII ISIS IIOI OR tit ttt 
LET @LPCSR(R2) := @LPCSR(R2) SET.BY #100 
000100 BIS 


002340 #100,aLPCSR(R2) 


ENDIF 
ENDIF 


50033$: 
500218: 
: CLEAR OUT ANY TIMEOUT COUNT 


sa eae LET STATUS(R2) := STATUS(R2) CLR.BY #177 BE os sages 
: SELECT THE NEXT UNIT AND DECRIMENT THE LINECOUNT 
LET R3 := R3 - #1 
LET LSLUN := LSLUN + #1 
IMP CTLLOP 


POP R3,R2 


005303 


005237 
000137 


R3 
ses oe 
CTLEND: 


012603 (SP) +,R3 
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1622 004654 000207 





MACY11 30A(1052) 
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(3) 004652 012602 





01i- 
1/0 ¢ 





D4 
OCT=79 09:27 PAGE 15-3 
ONTROL 


RTS PC 


MOV 


(SP) +,R2 






SEQ 0042 
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01-0CT=79 


012762 
012762 
005072 
013746 


012746 
012746 
010600 
104417 
062706 
104444 


000207 


005037 


023737 
002007 


MACY11 a, 


09:25 


000200 002474 
177777 ~=002574 
002340 
002074 
000006 
002676 
002326 
002326 


003546 
000001 


000004 


002074 


002074 002012 


E 
01-OCT-79 09:27 PAGE 16 
70 CONTROL 


ee a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a ee ee ee ee ee 
SSP e SPSS TS SSeS See eS Se a a a a ee ee ee Se ee ee 


; DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY 
; OPERATOR THAT THE PRINTER WAS DROPPED. 


; FUNCTIONAL DESCRIPTION : 
: THIS SUBROUTINE IS USED TO DROP A BAD PRINTER FROM THE TEST 


THE 


me a a a a a a a a a a a a a a a a a a a a a a ee a ee ee ee ee ee eee 
See eS See Se Se a a a a a a a a a a a a a a a a a a a ae a a ee ee ee eee 


DROPIT: 


LET STATUS(R2) := 


LET CURCNT(R2) == 


LET @LPCSR(R2) := 


#DROPED 
#-1 


PRINTF #LPDROP, L$LUN 


LET ERRTBL(R2) := 
LET UUT := 
IF WUT EQ #0 THEN 


PRINTF MUUTEQO 


DOCLN : 
END IF 


#0 


UUT = #1 


NOTHING TO TEST 


50034$: 


me a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a eee eee eee 
SSS SSS SHS SSS SS SS SS SS SS SS SS SS a Oe ee eS SS Se Se eee ee ee = 


FUNCTIONAL DESCRIPTION: 


; THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS 


; IN A MULTI UNIT MODE OF OPERATION. 


ee a a a a a a a a a a a a a a a a a a a ee ee 


LET L$LUN := 40 


WHILE L$LUN LT L$UNIT DO 


GPHARD 


L$LUN, R35 


50035$: 


SEQ 0043 


#DROPED ,STATUS(R 
#-1,CURCNT(R2) 
@LPCSR(R2) 
LSLUN,-(SP) 
#LPDROP ,-( SP) 
#2,- (SP) 

SP RO 

CSPNTF 

#6,SP 

ERRTBL (R2) 

UUT 

UUT 

50034$ 

gee = ii 


C$DCLN 


L$LUN 
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005020 


MACY11 ——. 


01-OCT-79 09:25 


013700 
2 


005237 
000765 
000207 


002074 


002074. 


Pim Sint 09:27 PAGE 1601 
CONTROL 


LET L$LUN := LSLUN + 41 
ENDDO 


RTS PC 


ENDMOD 





INC 


sh 
500368: 


SEQ 0044 


L$LUN,RO 
C$GPHRD 
RO,R3 
L$LUN 


50035$ 
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9 24 .SBTTL INITIALIZATION SECTION 
++ 
1665 :THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB=PASS AND IS 
1666 PRIMARILY USED FOR REQUESTING P=TABLE PARAMETERS. INFORMATION REQUESTED FROM 
1667 : THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, VECTORS, 
1668 :CLOCK TYPE, AUTO OR MANUAL PRINTING SPEED MEASUREMENT, AND WHETHER A DAVFU 
1669 OPTION IS INSTALLED IN THE SYSTEM. 
1671 005020 BGNMOD 
1672 005020 BGNINIT 
(3) 005020 LSINIT:: 
1673 RESET EXTERNAL BUS IF START EVENT FLAG IS SET 
1674 OR POWER FAIL RESTART 
1675 005020 READEF #EF.START ; TEST START EF INDICATOR 
(3) 005020 012700 000040 MOV #EF .START,RO 
(3) 005024 104447 TRAP CSREFG 
1676 005026 BCOMPLETE 1$ BRANCH IF FROM START UP 
(2) 005026 103410 BCS 1$ 
1677 005030 READEF #EF .RESTART NOW THE RESTARTFLAG 
(3) 005030 012700 000037 MOV #EF .RESTART,RO 
(3) 005034 104447 TRAP CSREFG 
1678 005036 BCOMPLETE 1$ IF EITHER START OR POWER FAIL RESTART 
(2) 005036 103404 BCS 1$ 
1679 ;DO A BUS RESET 
1680 005040 004737 004764 JSR PC FAKE : UPDATE PASS COUNT 
1681 005044 EXIT INIT ; ELSE EXIT INIT CODE 
(3) 005044 104432 TRAP CSEXIT 
sche 005046 001134 . WORD L10004--. 
.oe? ;POWER UP RESTART OR START COMMAND ISSUED 
1685 005050 1$: BRESET RESET THE BUS 
(3) 005050 104433 TRAP CSRESET 
1686 005052 IF LSUNIT GT 416. THEN 
(6) 005052 023727 002012 000020 CMP LSUNIT,416. 
(9) 005060 003420 BLE 50037$ 
1687 005062 PRINTF #NRGT16 
(7) 005062 012746 005612 MOV #NRGT16,-(SP) 
(6) 5 012746 000001 MOV #1,-(SP) 
(3) 005072 01 MOV SP ,RO 
(4) 005074 104417 TRAP CSPNTF 
(4) 005076 062706 000004 ADD #4 ,SP 
1688 005102 PRINTF #NRGT17 
(7) 005102 012746 005675 MOV #NRGT17,-(SP) 
(6) 0051 012746 000001 MOV #1,-(SP) 
(3) 005112 010600 V SP ,RO 
(4) 005114 104417 TRAP CSPNTF 
(4) 005116 062706 000004 ADD #4,SP 
005122 ENDIF 
(4) 005122 50037$: 
1690 005122 MANUAL ; WAIT FOR CR IF IN MANUAL MODE 
(3) 005122 104450 TRAP CS$MAN! 
1691 005124 BNCOMPLETE - 100$ 
he 005124 103016 BCC 100% 


1693 005126 PRINTF #MRESET PRINT RESET MESSAGE 
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012746 
012746 
010600 
104417 
062706 


005037 
005037 
005037 


104443 
000404 
002262 
000130 
006010 
100000 


013701 
005301 


005037 . 


000402 
005237 


023701 
003071 


103060 
013702 
006302 


005062 
005062 
012762 


005731 
000001 


000004 


002262 
002322 
002326 


002012 
002074 


002074 
002074 


002074 


002074 


002474 
002676 
177777 


002574 


H 4 
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INITIALIZATION SECTION 









‘WAIT FOR A "'CR'’ BEFORE GOING ON 


100$: 


LET FLAG := 40 
LET ERRCOD := 40 
LE? UUT := 40 


GMANIL READY,FLAG,1 


O0000,YES ;GET MANUAL. PARAMETERS 


100008: ~ 


“REQUEST P-TABLE FOR PRINTERS UNDER TEST 


2$: 


LET R1 := LSUNIT - #1 


>MAXIMUM NUMBER OF UNITS 


INCR L$LUN FROM #0 TO R1 BY #1 


GPHARD L$LUN,R3 


BNCOMPLETE 3$ 
LET R2 := L$LUN 


[CLEAR STATUS WORD IN TABLE, 


LET STATUS(R2) 
LE? ERRTBL(R2) 
LET CURCNT(R2) 


50041$: 
50040$: 


B 
REQUEST P-TABLE ADDRESS 
MOV 


TRAP 
MOV 
;BRANCH IF DEVICE NOT PRESENT 

BCC 
SHIFT 1 

MOV 

ASL 

CLEAR ANY ERROR COUNT, OUTPUT COUNT 

:= #0 

CLR 
:= #0 

CLR 
:= #1 

MOV 


~ ERRTBL (R2) 


SEQ 0046 


L$UNIT,R1 
R1 

LSLUN 
50040$ 
L$LUN 
L$LUN,R1 
50042$ 
L$LUN,RO 
CSGPHRD 
RO,R3 

3% 
LSLUN,R2 
R2 


STATUS (R2) 


#-1 ,CURCNT(R2) 
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(4) 005306 010237 
37 


012362 


(4) 005266 016262 
062762 


012362 


013762 
012746 


052762 
000702 


005737 
001405 
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LOAD CSR ADDRESS INTO TABLE 


01-OCT-79 09:25 


002340 


002340 
000002 


002400 


002736 


002326 


000200 


002252 


LET LPCSR(R2) := (R3)+ 


;SET UP CSR ADDRESS FOR DEVICE 
MOV 


LET LPBUF(R2) := LPCSR(R2) + #2 


002434 MOV 
002434 ADD 
'SET UP VECTOR ADDRESS INTO GIVEN TABLE 
7 LET LPVEC(R2) := (R3)+ 
MOV 
“SET UP DEVICE INTERRUPT VECTOR INFORMATION 
: LET WORK := R2 SHIFT 3 
MOV 
ASL 
ASL 
ASL 
LET WORK := WORK + #INTOO 
002736 ADD 
LET LPINTR(R2) := WORK 
002634 MOV 
SETVEC LPVEC(R2), LPINTR(R2), #PRIO4 
: MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
! ADD ONE TO UNIT UNDER TEST COUNT 
: LET UUT := UUT + #1 
INC 
BR 4$ 
S INDICATE LSLUN NOT AVAILABLE FOR TESTING 
S$: LET STATUS(R2) := STATUS(R2) SET.BY #DROPED 
002474 BIS 
4$: END INC :GO BACK AND DO IT AGAIN 


50042$: 
;DETERMINE IF MANUAL PRINT SPEED TO BE DONE AND PROCESS ACCORDINGLY 


:THIS IF STATEMENT HAS BEEN HARD CODED BECAUSE OF 
sNON=LOCAL SYMBOLS IN THE LOOP 


IF MANSPD EQ #0 THEN : 


TST MANSPD 


BEQ CK1 
LET CLKTYP 


SEQ 0047 


(R3)+*,LPCSR(R2) 


LPCSR(R2) ,LPBUF ¢ 
#2,LPBUF (R2)- 


(R3)+,LPVEC (R2) 


#INTOO, WORK 
WORK ,LPINTR(R2) 


#PRI04,-(SP) 
LPINTR(R2) ,-(SP) 
LPVEC(R2) ,-(SP) 
#3,-(SP) 

C$SVEC 

#10,SP 


#DROPED ,STATUS(R 
50041$ 


IF Q AUTO MATIC PRINT SPEED TEST 


;BRANCH IF AUTOMATIC TEST TO BE RUN 


:= WG 
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(4) 005414 012737 000004 002306 MOV #4 ,CLKTYP 
1753 005422 EXIT INIT 
(3) 005422 104432 TRAP CSEXIT 
(3) 005424 000556 «WORD L10004-. 
1738 
1756 END OF INITIAL SET UP SECTION. NOW FIND OUT WHAT TYPE OF CLOCK IS 
els ;AVAILABLE IF ANY. 
1759 005426 ék1: ; SEE IF THERE IS & 'P* CLOCK 
1760 005426 CLOCK P,R4 
(3) 005426 012700 000120 MOV #'P,RO 
(3) 005432 104462 TRAP CSCLCK 
(3) 005434 010004 MOV RO,R4 
1761 ;1F CARRY CLEAR 'P* CLOCK DOESN'T EXIST 
1762 005436 IFCOND CC THEN 
(6) 005436 103435 BCS 5004 3% 
1763 ; SO TEST FOR AN 'L* CLOCK 
1764 005440 CLOCK L,R4 
(3) 005440 012700 000114 MOV #°L,RO 
(3) 005444 104462 TRAP CSCLCK 
(3) 005446 010004 MOV RO,R4 
1765 ;_IF CARRY CLEAR THEN ‘L* CLOCK DOESN'T EXIST 
1766 005450 IFCOND CC THEN 
(6) 005450 103424 BCS 50044$ 
1767 005452 LET CLKTYP := #1 
(4) 005452 012737 000001 002306 MOV #1,CLKTYP 
1768 005460 PRINTF #NOCLCK 
~ (7) 005460 012746 006045 MOV #NOCL CK ,-(SP) 
(6) 005464 012746 000001 MOV #1,-(SP) 
(3) 005470 010600 MOV SP.RO 
(4) 005472 104417 TRAP —s- CSPNTF 
(4) 005474 062706 0C0004 ADD #4 ,SP 
1769 005500 PRINTF #NOTIM 
(7) 005500 012746 006107 MOV #NOTIM,-(SP) 
(6) 005504 012746 000001 MOV #1,-(SP) 
(3) 005510 010600 MOV SP,RO 
(4) 005512 104417 TRAP CSPNTF 
(4) 005514 062706 000004 i ADD #4 SP 
1770 005520 ELSE 
(4) 005520 000403 BR 50045$ 
(3) 005522 500448: 
1771 ;WE HAVE AN 'L* CLOCK 
1772 005522 LET CLKTYP := #2 
(4) 005522 012737 000002 002306 MOV #2,CLKTYP 
1773 005530 ENDIF 
(4) 005530 50045$: 
1774 005530 ELSE 
(4) 005530 000403 BR 50046$ 
(3) 005532 500438: 
1775 WE HAVE A ‘P* CLOCK 
1776 005532 ier CLKTYP := #3 
(4) 005532 012737 000003 002306 MOV #3,CLKTYP 
1777 005540 ENDIF 
(4) 005540 50046$: 


1778 005540 IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN 
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(6) 005540 023727 002396 000002 CMP CLKTYP,#2 
(8) 005546 001404 BEQ 50047$ 
(6) 005550 023727 002306 000003 ; CMP CLKTYP,#3 
(9) 005556 001010 BNE 50050$ 
(6) 005560 ; 50047$: 

1779 005560 LET CLOCKP := R4 ; 

(4) 005560 010437 002310 MOV R4,CLOCKP 
1780 005564 LET CLKCSR := @CLOCKP 

(4) 005564 017737 174520 002312 " MOV @CLOCKP,CLKCSR 
1781 005572 012777 000000 174512 MOV #0,aCLKCSR 
1782 005600 ENDIF é 

(4) 005600 50050$: 

1783 005600 SETPRI #PRIO00 

(3) 005600 012700 000000 MOV #PRI00,RO 
(3) 005604 104441 TRAP C$SPRI 
1784 005606 EXIT INIT 

(3) 005606 104432 TRAP CSEXIT 

(3) 005610 000372 -WORD 1L10004-. 
1785 -NLIST BEX 


786 

1787 005612 047045 040445 052516 NRGT16: .ASC 
1788 005675 045 022 047501 NRGT17: .ASC /ZNZAONLY 16 WILL BE TESTED 

1789 005731 045 022 051101 MRESET: .ASC /%NZARESET LINE PRINTER(S) AND PLACE ON LINE.2N/ 


o12 i 4 ZNZANUMBER OF LINE ort ee TEST EXCEEDS 16./ 
516 IZ 

1791 006010 042504 051120 051505 READY: .ASCIZ /DEPRESS ‘RETURN'’ WHEN READY./ 
yo Bl i 


1790 

1792 5 022 044101 NOCLCK: .ASC /2NZAHARDWARE CLOCK NOT AVAILABLE./ 

Hac 006107 045 022 040501 g ny ASC /%2NZAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED. / 

{ac 006200 000000 PLOC: -WORD 0O 
1797 -LIST BEX 
1798 006202 ENDINIT 

(3) 006202 L10004: 

(3) 006202 104411 TRAP CSINIT 
1799 : 

1800 
1801 Dr r= 

1802 z 
1 : RESVEC FUNCTIONAL DESCRIPTION 

1805 : THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS 

ioe 5 TO THE ‘NORMAL’ INTERRUPT ROUTINES STARTING AT INTOO. 

1808 

1809 006204 RESVEC:: PUSH R3,R4 
(2) 006204 010346 MOV R3,-(SP) 
(3) 006206 010446 MOV R4,-(SP) 
1810 006210 LET R4 := 40 

(4) 006210 005004 CLR R4 

1811 006212 LET R3 := LSUNIT 

(4) 00621 013703 002012 MOV LSUNIT.R3 
1812 006216 WHILE R3 GT #0 DO 

(4) 006216 . 500518: 

(6) 006216 005703 TST R3 

(9) 006220 003417 BLE 50052$ 
1813 006222 SETVEC LPVEC(R4), LPINTR(R4), #PRIO4G 
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012746 000200 , #PRI04 ,=(SP) 
002634 LPINTR(R4) ,=(SP) 
002400 LPVEC (R4) ,=(SP) 
000003 #3,-(SP) 


C$SVEC 
000010 #10,SP 


LET RG: 
000002 #2 ,R4 
LET R3: 


-ENDDO 


R3 
50051$ 


BR 
50052$: 
POP R4,R3 
(SP) +,R4 


(SP)+,R3 
RTS PC 
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.-SBTTL CLEANUP CODING SECTION 
STARS 


J LAA REE AAREEREREEEREEEEARREEREREEEEREERERREREEREREEEERERERE ERE 


s++ 

;THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST 
;AND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT 

; THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS ge BACK ON LINE 
STESTING WILL BE RESTARTED ON THE guy THIS INSURES THAT 

7 IN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER 
7 INTO THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT 

; HAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE. 


STARS 


MAARARALASLALSSAASALLALLALALASARARSSSASASARASASA RAR ASA RAS ASA LAS AS | 


BGNCLN 


006266 


LSCLEAN: : 
BRE SET 
104433 C$RESET 


: LET R1 := LSUNIT - #1 = ;NUMBER OF UNITS-1 
013701 MOV * aio 


005301 
INCR LSLUN FROM 40 TO R1 BY #1 
005037 LSLUN 
000402 BR 50053$ 
50054$: 
005237 ; I LSLUN 
50053$: 
023701 C L$LUN,R1 
003013 50055$ 
; DISABLE ALL INTERRUPTS, SELECT ALL LINES © 
; ZERO ALL ERROR COUNTS 
LET R2 := L$LUN SHIFT 1 
013702 002074 L$LUN,R2 
006302 R2 


LET STATUS(R2) := #0 
005062 002474 STATUS (R2) 
LET CURCNT(R2) := #-1 
012762 177777 002574 #-1,CURCNT (R2) 
LET ERRTBL(R2) := #0 
005062 002676 ERRTBL (R2) 
END INC 
000760 BR 50054$ 
50055$: 
004737 006204 JSR PC,R ; RESET THE VECTORS 
IF CLKTYP EQ ra OR CLKTYP EQ #3 THEN 
023727 002306 CLKTYP,#2 
001404 50056$ 


023727 002306 CLKTYP #3 
001006 50057$ 
50056$: 
CLRVEC @CLKVEC 
017700 173722 MO @CLKVEC ,RO 


104436 CSCVEC 
012777 000000 Fs #0,aCLKCSR 





4 
CZLPLAO LP25 TEST MACY11 30A(1052) 01-OCT-79 09:27 PAGE 1881 SEQ 0052 
CZLPLA.P11 01-0CT=79 09:25 CLEANUP CODING SECTION 


(4) 006404 50057$: 
1850 006404 ENDCLN 
(3) 006404 L10005: 
(3) 006404 104412 TRAP CSCLEAN 


1852 006406 ENDMOD 


CZLPLAO LP25 TEST 
CZLPLA.P11 


EFCRRE LESTE 


— 


(6) 


006406 


013701 
005301 


005037 
000402 


005237 
023701 
003402 
000137 
013702 
006302 
032772 
001416 
052762 
005262 
013737 
104456 
000001 
003170 
000000 


005072 


032772 


MACY11 30A(1052) 
01-OCT-79 09:25 


002012 


002300 


002300 
002300 
007116 


002500 


100000 


002000 
002676 
002300 


002340 


000200 


002340 


002474 


002074 


002340 
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-SBTTL INTERFACE LOGIC 
BGEWD 
:TAIS TEST VERIFIES THE OPERATION OF THE INTERFACE LOGIC. TESTS ARE 


TAS THE PROCESSOR, BUT WILL_ INTERRUPT IF THE ae ca IS AT A LOWER 
[PRIORITY LEVEL. THE PRINTER IS AT PRIORITY LEVEL 4 


BGNTST 1 - 

LET R1 := LSUNIT - #1 :MAX NUMBER OF UNITS ON SYSTEM 
MOV LSUNIT,R1 
DEC R1 

SHARD CODED INCREMEMNT LOOP 

:INCR LUNIT FROM #0 TO R1 BY #1 :START LOOP 

. CLR LUNIT :UNIT TO 0 

as BR TIC ‘DO COMPARE 

aa INC LUNIT [UPDATE UNIT NUMBER 

"(MP LUNIT,R1 :D0 COMPARISON OF UNIT NUMBER 
BLE 1$ SONTO NEXT UNIT 
a JMP T1B ‘EXIT LOOP 


LET R2 := LUNIT SHIFT 1 
MOV at me 


IF #BIT15 SETIN @LPCSR(R2) THEN 


BIT #BIT1S ,aLPCSR(R2 
BEQ 500608 
LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 
BIS #ERROR , STATUS (R2 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
INC ERRTBL (R2) 
LET L$LUN := LUNIT 
MOV LUNIT,LSLUN 
ERRHRD 1,CSRERR ERROR BIT WAS SET. SAY SO 
TRAP CSERHRD 
«WORD 1 
. WORD CSRERR 
. WORD 0 
LET @LPCSR(R2) := #0 
CLR @LPCSR(R2) 
ENDIF 
50060$: 
7 TIME DELAY 
; IF NOT READY ALLOW 3 SECONDS TO COME UP 
IF #BIT7 NOTSETIN @LPCSR(R2) THEN 
BIT #BIT7, aLPCSR(R2) 





Cc § 
CZLPLAO LP25 TEST MACY11 30A(1052) 01-0CT=79 09:27 PAGE 19-1 SEQ 0054 
CZLPLA.P11 01-OCT-79 09:25 INTERFACE LOGIC 

(9) 006520 001014 BNE 50061$ 

1893 006522 DELAY 30. 

(2) 006522 012727 000036 MOV #30.,(PC)+ 

(2) 006526 000000 . WORD 

(2) 006530 013727 002116 MOV LSDLY,(PC)+ 
(2) 006534 000000 . WORD 

(2) 536 005367 177772 DEC -6(PC) 

(2) 006542 001375 BNE .- 

(2) 006544 005367 177756 DEC =22(PC) 

(2) 006550 001367 BNE --20 

1894 006552 ENDIF 

: is) 006552 50061$: 

io :NOW TEST FOR PRINTER READY 
1898 006552 IF #BITO7 NOTSETIN @LPCSR(R2) THEN TEST FOR THE READY BIT 

(6) 006552 032772 000200 002340 BIT #81T07,aLPCSR(R2 
(9) 006560 001014 BNE 50062$ 

1899 006562 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 

(6) 006562 052762 002000 002474 BIS #ERROR , STATUS (RZ 
1900 006570 LET LSLUN := LUNIT 

(4) 006570 013737 002300 002074 MOV LUNIT,LSLUN 
1901 006576 LET ERRTBL(R2) := ERRTBL(R2) + #1 

(6) 006576 005262 002676 INC ERRTBL (R2) 
1902 006602 ERRHRD 2,RDYERR REPORT AN ERROR 

(4) 006602 104456 TRAP CSERHRD 

(5) 006604 000002 . WORD 

(5) 006606 003206 -WORD RDYERR 

(5) 006610 000000 -WORD 0O 

1903 006612 ENDIF 

m4 006612 50062$: 

40'<4 ; INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY 
1907 006612 LET @LPRUF(R2) := #12 

(4) 006612 012772 000012 002434 MOV #12, aLPBUF (R2) 
1908 006620 ¥ IF #BITO7 SETIN @LPCSR(R2) THEN 

(6) 006620 032772 000200 002340 BIT #B1TO7, aL PCSR(R2 
(9) 006626 001416 BEQ 500638 

1909 006630 LET STATUS(R2) := STATUS(R2) SET.BY #ERROR 

(6) 006630 052762 002000 002474 BIS #ERROR, STATUS (R2 
1910 006636 LET ERRTBL(R2) := ERRTBL(R2) + #1 

(6) 006636 005262 002676 INC ERRTBL (R2) 
1911 006642 LET L$LUN := LUNIT 

(4) 006642 013737 002300 002074 MOV LUNIT,LSLUN 
1912 006650 ERRHRD 3,—RR11 ;REPORT AN ERROR ; 

(4) 006650 104456 TRAP CSERHRD 

(5) 006652 000003 . WORD 

(5) 006654 007172 -WORD ERR11 

(5) 006656 000000 WORD 0 

1913 006660 LET @LPCSR(R2) := #0 ' 

(4) 006660 005072 002340 CLR @LPCSR(R2) 
1914 006664 ENDIF 

(4) 006664 50063$: 


1916 SVERIFY THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT A PRIORITY LEVEL 
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THE SAME AS THE CPU 


SETPRI #PRIO4 sCPU TO PRIORITY 4 
012700 #PRI04,RO 
104441 CSSPRI 
SETVEC LPVEC(R2) ,AINTERR,#ERIOG :LP VECTOR SET UP 
012746 000200 #PRI04,=(SP) 
#INTERR, ~(SP) 
LPVEC (R2) , =(SP) 
#3,-(SP) 
C$SVEC 
ADD #10,SP 
LET @LPCSR(R2) := @LPCSR(R2) SET.BY 4100 — ; INTERRUPT ENABLE 


052772 BIS #100, @LPCSR(R2) 
DELAY 30 ; ALLOW 3 SEC FOR DELAY 
012727 #30, (PC)+ 
000000 ‘ 0 
peat, 
177772 -6(PC) 


4 
177756 =22(PC) 
BNE .-20 


iNOW a THAT THE PRINTER WILL INTERRUPT IF THE PRIORITY IS LOWER THAN 
31h U 


LET @LPCSR(R2) := @LPCSR(R2) CLR.BY #100 ; CLEAR INTERRUPT ENABLE 
000100 BIC #100, aLPCSR(R2) 
SETPRI #PRIO3 :CPU TO PRIORITY 3 
012700 000140 #PRI03,RO 
104441 C$SPRI 
SETVEC LPVEC(R2) AINTHDL ,APRI04 
012746 000200 #PRIO04,-(SP) 
007164 #INTHDL ,~-(SP) 
002400 LPVEC(R2) ,-(SP) 
000003 SP) 


000010 ADD 
LET @LPCSR(R2> := @LPCSR(R2) SET.BY #100 ; INTERRUPT ENABLE 
052772 000100 BIS #100, @LPCSR(R2) 
DELAY 30 ; ALLOW 3 SEC DELAY 


012727 000030 #30, (PC)+ 
000000 ° 9 
002116 LSDLY, (PC)+ 
- WOR 
177772 -6(PC) 
BNE 74 
177756 =22(PC) 
BNE .720 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
002676 ERRTBL (R2) 
LET L$LUN := LUNIT 
013737 002300 002074 LUNIT,L$LUN 


ERRHRD 4,ERR13 
104456 CSERHRD 





CZLPLAO LP25 TEST 
CZLPLA.P11 


01-OCT-79 


005262 
013737 


104456 
000005 
007246 
000000 


012716 


0000C2 


012716 


000002 


047514 
051120 
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000100 002340 


002474 


006422 
006204 
000000 


002676 
002300 


007100 


007100 


002074 


047111 
042524 
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END2: LET @LPCSR(R2) := @LPCSR(R2) CLR.BY #100 


LET STATUS(R2) := #0 


:END OF HARD CODED INCREMENT LOOP 


JMP 


7 MAKE 


TIA ; UPDATE 
T1B: JSR PC ,RESVEC ; RESET STANDARD VECTORS 


SETPRI #PRIO0 


EXIT TST 


sEXIT THE TEST 


SEQ 0056 
«WORD 4 
«WORD ERR13 
«WORD 0 
SURE INTERRUPT ENABLE IS C 
BIC #100,aLPCSR(R2) 
CLR STATUS (R2) 
MOV #PR1I00,RO 
TRAP C$SPRI 
TRAP CSEXIT 
«WORD 110006-. 


S INTERRUPT HANDLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE. 
7 THIS ROUTINE IS ENTERED ONLY WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS 


THE CPU AND IS CONSIDERED AN ERROR 


BGNSRV 

INTERR: LET ERRTBL(R2) := ERRTBL(R2) + #1 
LET L$LUN := LUNIT 
ERRHRD 5,ERR12 


LET (SP) := MEND2 
ENDSRV 


INTERRUPT HANDLER FOR EXPECTED INTERRUPT 
BGNSRV 

INTHDL: LET (SP) := MEND2 

FNDSRV 


“ERROR MESSAGES ASSOCIATED WITH THIS TEST 


INC 


L10007: 


MOV 


L10010: 


"NLIST BEX 
ERR11: .ASCIZ /LOADING PRINTER BUFFER DOES NOT CLEAR READY/ 
ERR12: _ASCIZ /PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/ 


RTI 


ERRTBL (R2) 
LUNIT,L$LUN 
CSERHRD 
Ena2 


#END2 , (SP) 


#END2, (SP) 





F 
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1970 007331 120 044522 052116 ERR13: .ASCIZ /PRINTER DID NOT INTERRUPT AT PRIORITY 3/ 
1971 007402 -EVEN 
1972 007402 ENDTST 

(3) 007402 L 10006: 

(3) 007402 10440 : TRAP CSETST 
1973 «LIST BEX 
1974 007404 ENDMOD 
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103402 
104432 
002036 
005737 
001002 


104432 
002024 


005037 


013701 
005301 


005037 
000402 


005237 
023701 
003020 
013702 
006302 
032772 
001410 
005262 
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002244 


002262 
002012 


002300 


002300 
002300 
002300 
100000 002340 


002676 
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-SBTTL READY LINE INTERLOCKS 
BGNMOD 


ME oy 
:THIS TEST CHECKS THE OPERATION OF THE 

PRINTER READY INTERLOCK SWITCHES. 

:MANUAL INTERVENTION IS USED TO 

;OPEN THE INTERLOCKS TO PRODUCE FAULTS 

IN THE PRINTER AFTER WHICH THE RESULTANT ERROR 
S INDICATION IS VERIFIED. 


BGNTST 2 12 
sDETERMINE IF MANUAL INTERVENTION IS ALLOWED 
MANUAL 
TRAP 
BCOMPLETE 11$ 
BCS 
EXIT TST 
TRAP 
WORD 
EXIT TEST IF MANUAL oi. TESTS ARE NOT SPECIFIED 
11$: IF INHINT EQ #0 THEN 
: TST 
BNE 
EXIT TST 
TRAP 
.~ WORD 
ENDIF 
50064$: 
LET FLAG := #0 
CLR 
LET R1 := LSUNIT - 41 
MCV 
DEC 
;CHECK FOR ERROR IN EACH PRINTER UNDER TEST 
INCR LUNIT FROM #0 TO R17 BY 41 
CLR 
BR 
50066$: 
INC 
50065$: 
CMP 
BGT 
LET R2 := LUNIT SHIFT 1 
MOV 
ASL 
IF #BIT15 SETIN @LPCSR(R2) THEN at? 
BEQ 
LET ERRTBL(R2) := ERRTBL(R2) + #1 a 
N 


ERRHRD 6, CSRERR 


SEQ 0058 





CSMANI 
118 
CSEXIT 
L10011- 
INHINT 
50064$ 


CSEXIT 
L10011-. 


FLAG 
LSUNIT,R1 
R1 


LUNIT 
50065$ 


LUNIT 

LUNIT,R1 

50067$ 

LUNIT ,R2 

R2 
#B1T15,@LPCSR(R2 
50070$ 


ERRTBt ‘R2) 


CZLPLAO LP25 TEST 


CZLPLA.P11 01-OCT-79 


(4) 007502 
504 


104456 
000006 
003170 
000000 


005072 
000753 


005037 
000402 


005237 


023701 
003016 


013702 
006302 
032772 
001006 


005262 
104456 
000007 
003206 
000000 


000755 


005037 
005037 
000405 
005237 


013702 
006302 
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002340 


002300 


002300 
062300 


002300 


000200 002340 


002676 


002324 
002300 


002300 
002300 


002300 
010110 
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LET @LPCSR(R2) : 


;CHECK FOR READY IN EACH PRINTER UNDER TEST 
iNCR LUNIT FROM #0 TO R17 BY #1 


LUNIT SHIFT 1 


IF #BITO7 NOTSETIN @LPCSR(R2) THEN 


LET ERRTBL(R2) := ERRTBL(R2) + #1 


ERRHRD 7, RDYERR 


: VERIFY OPERATION OF PAPER LOW INTERLOCK SWITCH 
SHARD CODED INCREMENT LOOP 


T 
= LUNIT SHIFT 1 


50070$: 


50067$: 


500,’2$: 
50071$: 


50074$: 


50073$: 


BR 


MOV 
ASL 





SEQ 0059 


pemee. 
CSRERR 
0 


@LPCSR(R2) 
50066$ 


LUNIT 
50071$ 


LUNIT 


LUNIT,R1 
50073$ 


LUNIT,R2 

Re 
#B1T07,aLPCSR(R2 
50074$ 


ERRTBL (R2) 
CSERHRD 
7 


’ RDYERR 
0 


50072$ 


ERRFLG 


LUNIT,R2 
Re 


ee 


wo 
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2034 007632 LET FLAG := #0 
(4) 007632 005037 002262 CLR FLAG 
2035 007636 PRINTF #PAPRSW,LUNIT ; 
(8) 007636 013746 002300 MOV LUNIT,=-(SP) 
(7) 007642 012746 010542 MOV MPAPRSW,-(SP) 
(6) 007646 012746 000002 MOV #2,-(SP) 
(3) 007652 010600 MOV P 
(4) 007654 104417 TRAP CSPNTF 
(4). 007656 062706 000006 ADD #6,SP 
PRINTF #FAPSW1 
(7) 007662 012746 010612 MOV #PAPSW1 ,-(SP) 
(6) 007666 012746 000001 MOV #1,-(SP) 
(3) 007672 010600 MOV SPR 
(4) 007674 104417 TRAP CSPNTF 
(4) 007676 062706 000004 ADD #4 SP 
2037 007702 GMANIL READY, FLAG, 100000, YES 
(3) 007702 104443 TRAP C$GMAN 
(3) 04 10000$ 
(4) 007706 002262 WORD FLAG 
(5) 007710 000130 WORD TSCODE 
(S) 007712 006010 WORD READY 
(S) 007714 1 , . WORD 
(3) 007716 10000$: 
2038 007716 LET LINCNT := 40 / ; 
(4) 007716 005037 002264 CLR LINCNT 
2039 007722 LET OUTBUF := #14 . 
(4) 007722 012737 000014 002742 MOV #14 ,O0UTBUF 
2040 007730 REPEAT 
(3) 007730 50075$: 
2041 007730 OUTPUI #OUTBUF ,41,45$,LUNIT 
2042 007764 LET LINCNT := LINCNT + #1 ; 
(6) 007764 005237 002264 INC LINCNT 
2043 007770 UNTIL LINCNT EQ 43 OR ERRFLG NE 40 
(4) 007770 023727 002264 000003 CMP LINCNT 43 
(6) 007776 001403 BEQ 50076$ 
(4) 010000 005737 002324 TST ERRFLG 
(7) 010004 001751 BEQ 50075$ 
(4) 010006 50076$: 
2044 010006 IF ERRFLG EQ 40 THEN 
(6) 010006 005737 002324 TST ERRFLG 
(9) 010012 001006 BNE 50077$ 
2045 010014 LET ERRTBL(R2) := ERRTBL(R2) + #1 
(6) 010014 005262 002676 INC ERRTBL (R2) 
2046 010020 ERRHRD 8, PAPSWI 
(4) 010020 104456 TRAP CSERHRD 
(5) 010022 000010 -WORD 8 
(5) 010024 003230 ; -WORD PAPSWI 
(5) 010026 000000 WORD 0 
2047 010030 ENDIF 
(4) 010030 50077$: 
2048 010030 PRINTF #PAPRDY,LUNIT 
(8) 010030 013746 002300 MOV LUNIT,~(SP) 
(7) 010034 012746 010670 MOV #PAPRDY ,- (SP) 
(6) 010040 012746 000002 MOV #2,-(SP) 
(3) 010044 010600 MOV SP ,RO 
(4) 0100466 104417 TRAP CSPNTF 
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(4) 010050 062706 000006 ' ADD #6,SP 
2049 010054 LET FLAG := 40 
(4) 010054 005037 002262 CLR FLAG 
2050 010060 GMANIL READY,FLAG,100000, YES 
(3) 010060 104443 TRAP 
(3) 010062 000404 10001$ 
(4) 010064 002262 WORD FLAG 
(5) 0066 000130 WORD TSCODE 
(5) 010070 006010 WORD READY 
(5) 010072 1 “WORD 
(3) 010074 10001$: 
2051 010074 000137 007606 . IMP 2$ 
2052 sEXPECTED ERROR HANDLER 
2053 JUST SET EXPECTED ERROR INDICATOR. 
2055 010160 és. LET ERRFLG := #1 ; 
(4) 010100 012737 000001 002324 MOV #1, ERRFLG 
2056 010106 000207 RTS PC ;AND RETURN 
2057 : VERIFY OPERATION OF HAMMER BANK INTERLOCK SWITCH 
2058 010110 i$: INCR LUNIT FROM #0 TO R1 BY #1 
(4) 0101710 005037 . 002300 CLR LUNIT 
(5) 010114 000402 | BR 50100$ 
(4) 010116 50101$: 
(7) 010116 005237 002300 - INC LUNIT 
(5) 010122 501008: 
(5) 010122 023701 002300 CMP LUNIT,R1 
(7) 010126 003077 BGT 50102$ 
2059 010130 LET R2 := LUNIT SHIFT 1. 
(4) 010130 013702 002300 MOV LUNIT,R2 
(7) 010134 006302 ASL R2 
2060 010136 -LET L$LUN := LUNIT . 
(4) 010136 013737 002300 002074 MOV LUNIT,LSLUN 
2061 010144 LET FLAG := #0 
(4) 010144 005037 002262 CLR FLAG 
2062 010150 PRINTF #HAMRSW,LUNIT 
(8) 010150 013746 002300 ee MOV LUNIT,~(SP) 
(7) 010154 012746 010753 MOV MHAMRSW, - (SP) 
(6) 010160 012746 000002 MOV #2,-(SP) 
(3) 010164 0 . MOV ‘ 
(4) 010166 104417 . TRAP — C$PNTF 
(4) 010170 062706 090006 ADD #6,SP 
2063 010174 PRINTF #HAMSW1 
(7) 010174 012746 011037 MOV #HAMSW1 , - (SP) 
(6) 010200 012746 000001 MOV #1,-(SP) 
(3) 010204 010600 MOV SP RO 
(4) 010206 104417 TRAP —- CSPNTF 
(4) 016210 062706 000004 ADD #4 SP 
010214 ~ GMANIL READY, FLAG, 100000, YES ; 
(3) 010214 104443 TRAP ss C$ 
(3) 010216 0004 BR 0002$ 
(4) 010220 002262 -WORD FLAG 
(5) 010222 1 “WORD  TSCODE 
(5) 010224 “WORD READY 
(5) 010226 100000 WORD 1 
(3) 010230 10002$: 


2065 010230 IF #B1T15 SETIN @LPCSR(R2) THEN 
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013737 
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100000 002340 


002300 
011114 
000002 


000006 


002676 


002300 002074 


002300 


002300 
002300 


002300 
002262 
002300 
011212 
000002 


000006 
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READY LINE I 


PRINTF #HAMRDY ,LUNIT 


GMANIL READY, 


ELSE 


LET 
LET 


END] 
END INC 


NTERLOCKS 


FLAG, 


ERRTBL(R2) := 
L$LUN := LUNIT 


ERRHRD 9, BNKSWI 


F 


100000, YES 


ERRTBL(R2) + #1 


10003$: 


50103$: 


50104$: 


50102$: 


;VERIFY OPERATION OF CHARACTER BAND INTERLOCK SWITCH 
INCR LUNIT FROM #0 TO R1 BY #1 


LET R2 := 


LUNIT SHIFT 1 


LET FLAG := #0 
PRINTF #BANDSW,LUNIT 


50106$: 
“=~ 501058: 


SEQ 0062 
#B1T15,@LPCSR(R2 
50103$ 
LUNIT,=(SP) 


MHAMRDY , = (SP) 
#2,-(SP) 


50104$ 


ERRTBL (R2) 
LUNIT,LSLUN 


panes 
BNK SWI 
Q.. 


50101$ 


LUNIT 
50105$ 
LUNIT 


LUNIT,R1 
50107$ 


LUNIT,R2 
R2 


FLAG 


LUNIT,~(SP) 
BAND SW ,- (SP) 
#2,-(SP) - 

SP ,RO 
CSPNTF 
#6,SP 
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PRINTF #BNDSW1 
012746 011300 #BNDSW1 ,=( SP) 
012746 000001 ) 
010600 


000004 
GMANIL READY, FLAG, 100000, YES 


10004$: — 
IF #BIT15 SETIN @LPCSR(R2) THEN 
032772 002340 #81115 .@LPCSR(R2 


001421 
PRINTF #BNDRDY,LUNIT 
013746 LUNIT ,~(SP) 


GMANIL READY, FLAG, 100000, YES 


10005$: ~ 
ELSE 
000411 BR 501118 


50110$: 
LET ERRTBL(R2) := ERRTBL(R2) + #1 
005262 ERRTBL (R2) 
LET L$LUN := LUNIT 
013737 002074 LUNIT,LSLUN 
ERRHRD 10, BNDSWI 


104456 j CSERHRD 
000012 1 


° 0 
003340 BND SWI 
000000 0 
ENDIF 
END INC 


50111$: 


BR 
501078: 
EXIT TST 
0105 
010540 
.NLIST BEX 
010542 047045 040445 042524 PAPRSW: .ASCIZ /%NZATEAR OFF PAPER JUST BELOW LUNIT %D2/ 
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2096 010612 040445 052040 020117 PAPSW1: .ASCIZ /%A_ TO CHECK PAPER LOW 2ZNZAINTERLOCK SWITCH. 2N/ 
2097 06 7045 042522 PAPRDY: .ASCIZ /ZNZARESTORE PAPER AND PLACE LUNIT %D2%A ON LINE.2N/ 
2098 010753 045 022516 042101 HAMRSW: .ASCIZ /ZNZADISENGAGE HAMMER BANK LATCH SWITCH ON LUNIT %D2/ 
2099 011037 045 022516 052101 HAMSW1: .ASCIZ /ZNZATO CHECK HAMMER BANK INTERLOCK SWITCH. 2N/ 
2100 011114 047045 047105 HAMRDY: .ASCIZ /ZNZAENGAGE HAMMER BANK LATCH AND PLACE LUNIT %D2%A AF LINE .2N/ 
2101 011212 047045 040445 050117 BANDSW: .ASCIZ /ZNZAOPEN CHARACTER BAND COVER ON LUNIT %D2%A TO CHECK/ 
2102 011300 047045 040445 044103 BNDSW1: .ASCIZ /ZNZACHARACTER BAND INTERLOCK SWITCH. 2N/ 
St 011347 045 022516 041501 — ASCIZ/%N%ZACLOSE CHARACTER BAND COVER ON LUNIT %D2%A AND PLACE ON LINE./ 
2105 
2106 -LIST BEX 
2107 011450 ENDTST 
(3) 011450 L10011: 
othe 011450 104401 TRAP CSETST. 
2109 011452 ENDMOD 
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2112 

2113 011452 

2114 

2115 

2116 

2117 

2718 

2119 

2120 

2121 

2122 

21235 011452 
(3) 011452 

2124 

2125 011452 
(3) 011452 

2126 011454 
(2) 011454 

2127 011456 
(3) 011456 
(3) 011 

2128 

2129 011462 

2130 011466 

2131 011470 
(3) 011470 
(3) 011472 

2132 

21335 011474 

2134 

2135 

2136 

2137 011530 

2138 011534 

2139 011536 

2140 011542 

2141 011546 

2142 011550 

2143 011554 

2144 011554 
(4) 011554 
(7) 011560 

2145 011562 
(8) 011562 
(7) 011566 
(6) 011572 
(3) 011576 
(4) 011600 
(4) 011602 

2146 011606 
(7) 011606 
(6) 011612 
(3) 011616 
(4) 011620 
(4) 011622 

2147 011626 


104450 
103402 
104432 
002164 
005737 
001002 


104432 
002152 


tay aA 
005237 
023701 
003402 
000137 
013702 
006 


302 
013746 


012746 
piers 


010600 
104417 
062706 


002244 


002300 


002300 
002300 


012276 


002300 
002300 
012340 
000002 


000006 
012424 
000001 


000004 
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.SBTTL FORMS LENGTH SELECTION 
Cae 


THIS TEST CHECKS ALL POSITIONS OF THE FORM oe SELECT SWITCH. THE 
[PROGRAM INDICATES THE ane Toe SETTING OF THE FORM LENGTH SELECT SWITCH 
AND WAITS FOR THE OPERA TO SET THE SWITCH ON THE PRIN TER. THE PAPER 
21S THEN ADVANCED UNDER PROGRAM CONTROL. THE PRINTER OUTPUT IS VISUALLY 
; INSPECTED AFTER ALL SWITCH SETTINGS HAVE BEEN RUN THROUGH BY THE OPERATOR 
SIEVING. THAT THE PROPER PAPER MOVEMENT HAS OCCURRED FOR EACH SWITCH 


BGNTST 3 
;DETERMINE IF MANUAL INTERVENTION IS ALLOWED 
MANUAL 


3:3 


TRAP CS$MANI 


BCOMPLETE 1$ 
BCS 1$ 
EXIT TST 
TRAP CSEXIT 
«WORD L10012-. 
el is | tes ——-" INTERVENTION TESTS ARE NOT SPECIFIED 
BNE 2$ 
EXIT TST 
TRAP CSEXIT 
«WORD 1L10012-. 
zPRINT TEST IDENTIFICATION 
2s: OUTPUT #FRMLTH,425. 
“HARD CODE INCREMENT LOOP 
CLR LUNIT 
BR 4$ ; COMPARE LOOP 
5$: INC LUNIT 
4$: CMP LUNIT,R1 
BLE 6$ EXIT ONLY IF GREATER THAN 
JMP 7$ sEXIT 


63: 
LET R2 := LUNIT SHIFT 1 
MOV Leite 


PRINTF #LINSWI,LUNIT PRINT LUNIT MESSAGE 


“SEQ 0065 


MOV LUNIT,~(SP) 
MOV #LINSWI ,-(SP) 


MOV #2,~-(SP) 


MOV SP ,RO 

TRAP CSPNTF 

ADD #6,SP 
PRINTF #LINSW1 SECOND PART OF MESSAGE 


MOV #LINSW1 ,-(SP) 


MOV #1,~-(SP) 
MOV SP,RO 
CSPNTF 


#4 ,SP 


PRINTF #FLSSEL,LUNIT SET TO ‘FLS** POSITION 


B 6 
CZLPLAO LP25 TEST MACY11 anahiteid 01-OCT-79 09:27 PAGE 21-1 SEQ 0066 
CZLPLA.P11 01-OCT-79 09:25 ORMS LENGTH SELECTION 


(8) 011626 013746 002300 MOV LUNIT,-(SP) 
(7) 011632 012746 012504 MOV #ELSSEL . 7 (SP) 
(6) 011636 012746 000002 MOV #2,-( 

(3) 011642 010600 MOV SRO” 

(4) 011644 106417 TRAP — CSPNTF 

(4) 011646 062706 000006 ADD #6,SP 
2148 011652 INCR RG FROM #0 TO #20. BY #2 

(4) 011652 005004 CLR R4 

(5) 011654 000402 BR 50112$ 

(4) 011656 50113$: 

(7) 011656 062704 000002 ADD #2.R4 

(5) 011662 501128: 

(5) 011662 020427 000024 CMP R4,#20. 
(7) 011666 003126 BGT 50114$ 
2149 011670 LET R3 == RG s INDEX INTO SWITCH SETTING TABLE 

(4) 011670 010403 MOV R4,R3 
2150 011672 006303 ASL R3 sACTUAL OFFSET FOR SWITCH SETTINGS 

2151 011674 LE? T3SET := #FFSET + R3 

(4) 011674 012737 013175 012302 MOV WFFSET,T3SET 
(6) 011702 060337 012302 ADD R3,T3SET 
2152 011706 PRINTF #FLSMSG,LUNIT,T3SET :SELECT MESSAGE 

(9) 011706 013746 012302 MOV T3SET,-(SP) 
(8) 011712 013746 002300 MOV LUNIT,-(SP) 
(7) 011716 012746 013251 MOV #FLSMSG,-(SP) 
(6) 011722 012746 000003 MOV #3,-(SP) 
(3) 011726 01 MOV SP,R 

(4) 011730 104417 TRAP — CSPNTF 

(4) 011732 062706 000010 ADD #10,SP 
2153 011736 PRINTF #FLSMS1 

(7) 011736 012746 013343 MOV #FLSMS1 (SP) 
(6) 011742 012746 000001 MOV #1,-(SP) 

(3) 011746 010600 MOV SP.R 

(4) 011750 104417 TRAP — CSPNTF 

(4) 011752 062706 000004 ADD #4,SP 
2154 011756 LET FLAG := #0 ZCLEAR FLAG INDICATOR FOR MANUAL 

(4) 011756 005037 002262 CLR FLAG 

2155 011762 GMANIL READY,FLAG,100000,YES = ;WAIT FOR OPERATOR 

(3) 011762 106443 TRAP —- C$GMAN 

(3) 011764 000404 BR 10000$ 

(4) 011766 002262 .WORD FLAG 

(5) 011770 000130 “WORD TSCODE 

(5) 011772 006010 “WORD READY 

(5) 011774 100000 “WORD 

(3) 011776 10000$: 

2156 011776 OUTPUI #REFLIN mss. 5 gLUNIT s OUTPUT REF ERENCE LINE AND TERMINATOR 

2157 012032 OUTPUI T3SET,#3,, # OF LINES FOR SPACING 

2158 O12 OUTPUI #MOVMSG © #30. MT ukT FINAL REFERENCE LINE 

2159 012122 LET FLAG := #0- 

(4) 012122 005037 002262 CLR FLAG 

2160 012126 GMANIL READY,FLAG, 100000. YES 

(3) 012126 106443 TRAP  C$GMAN 

(3) 012130 BR 10001$ 

(4) 012132 002262 “WORD FLAG 

(5) 012134 1 “WORD  TSCODE 

(5) 012136 10 “WORD READY 

(5) 012140 “WORD 1 
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(3) 012142 100018: 

2161 012142 END INC 

(4) 012142 000645 BR 501138 
(3) 012144 501148: 

2162 SET FORMS LENGTH SELECT SWITCH TO ITS "REGULAR SETTING 

2163 012144 PRINTF #NMLFLS,LUNIT 

(8) 012144 013746 002300 MOV —LUNIT, =(SP) 
(7) 012150 012746 013103 MOV —s #NMLFLS,=(SP) 
(6) 012154 012746 000002 MOV = #2, = (SPS 
(3) 012160 010600 Vs SP-R 
(4) 012162 104417 TRAP 

(4) 012164 062706 000006 ADD «#6, SP 
2164 012170 LET OUTBUF := #14 

(4) 012170 012737 000014 002742 Mov #14, 0UTBUF 
2165 012176 OUTPUI #OUTBUF 41, ,LUNIT 

2166 012232 PRINTF #PAPCHK ;MAKE SURE MOVEMENT WAS RIGHT 

(7) 012232 012746 012603 MOV —«s #PAPCHK ,= (SP) 
(6) 012236 012746 000001 MOV —s- #1, = (SPS 
(3) 012242 01 MOV _— SP. RO 
(4) 012264 104417 TRAP —LSPNTF 
(4) 012246 062706 000004 ADD #4, SP 
2167 012252 LET FLAG := #0 CLEAR <CR> FLAG 

(4) 012252 005037 002262 CLR ~—- FLAG 
2168 012256 GMANIL READY,FLAG,100000,YES | ;AND WAIT FOR RESPONSE 

(3) 012256 104443 TRAP oC 

(3) 60 0004 BR 100028 
(4) 012262 002262 .WORD FLAG 
(5) 012264 13 “WORD  TSCODE 
(5) 012266 006010 “WORD READY 
(5) 012270 1 “WORD 1 

(3) 012272 10002$: 

2169 012272 000137 011536 JMP 5$ END OF HARDCODED INCREMENT LOOP 

2170 012276 7$: 

2171 012276 EXIT TST 

(3) 012276 104432 : TRAP CSEXIT 
(3) 012300 001344 -WORD L10012-. 
2172 012302 000000 T3SET: .WORD 0 

2173 012304 000000 T3MOV: WORD 0 

2174 .NLIST BEX 

2175 012306 047506 046522 020123 FRMLTH: .ASCIZ /FORMS LENGTH SELECTION/<12><12><12> 

2176 12540 047045 040445 042525 LINSWI: -ASCIZ /ENZASET LINES SWITCH ON UNIT XD2ZA TO "'6:' TO SELECT/ 

2177 012424 047045 45 020066 LINSWI: .ASCIZ /ENZAG LINES PER INCH VERTICAL PRINTING DENSITY. / 

2178 04 047045 022462 051501 FLSSEL: :ASCI? /RNORASET VFUCFLS. SWITCH ON UNIT XD2%A TO THE “FLS'* POSITION. 2N/ 
2179 01260 045 022516 053101 “ASCIZ /%NZAVERIFY PROPER PAPER MOVEMENT FOR EACH SWITCH SETTING. / 

2180 012675 043105 051105 REFLIN: :ASCII /REFERENCE LINE FOR FORMS LENGTH SELECTION.......cecceceeceees / 
neue aren Gis Grams Gerens Mri iis LAOCit f.. ...cnscisanechtenimnunmeneneuibaamhenteniaaensasaaniann / 
2182 013067 027056 027056 REFLI2: :ASCIZ /.......... 7<143 

2183 013103 045 022516 051501 NMLFLS: :ASCIZ /2NZASET FORMS LENGTH SELECT SWITCH ON UNIT %D2%A TO 11.%N/ 

2184 ;SWITCH SETTINGS FOR FORMS LENGTH MESSAGES 

2185 013175 063 020040 000 FFSET: .ASCIZ /3 / 

2186 013201 063 032456 000 “ASCIZ /3.5/ 

2187 013205 020040 000 “ASEIZ /4_/ 

2188 013211 065 032456 000 “ASCIZ /5.5/ 

2189 013215 020040 “ASCIZ /6 / 

2190 013221 067 020040 000 TASCIZ /? / 

2191 013225 070 020040 000 TASCIZ /8 / 
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2192 013231 070 032456 000 eASCIZ /8.5/ 
2193 013235 061 020061 eASCIZ /11 / 
013241 061 020062 000 ASCIZ /12 / 
2195 013245 061 000 eASCIZ /14 / 
2196 013251 045 022516 051501 FLSMSG: .ASCIZ /%NZASET FORMS ion ¢ SELECT SWITCH ON UNIT 2D2%A TO 2T2A,/ 
2197 01334 022516 042101 FLSMS1: .ASCIZ /%NZADEPRESS ‘‘ALARM CLEAR’’, AND PLACE PRINTER BACK ON LINE. %N/ 
2198 013440 044440 041516 042510 MOVMSG: .ASCII / INCHES SHOULD OCCUR BETWEEN THIS AND THE REFERENCE LINE..... / 
2199 013535 056 O27056 02/7056 POVMST: ASCII Sicccccccegevcccrccccccccccecceccenecocsoccocceecccceeceoesoees 
2200 013633 056 027056 027056 MOVMS2: .ASCIZ /...... /<12> 
2201 013644 -EVEN 
2202 -LIST BEX 
2203 013644 ENDTST 
(3) 013644 L10012: 
(3) 013644 104401 TRAP CSETST 
6 ENDMOD 
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2207 .SBTTL PRINTING SPEED MEASUREMENT 
2208 013646 BONMOD 
2210 :PRINTING SPEED 1s MEASURED BY OPERATING THE LINE PRINTER FOR A GIVEN PERIOD 
2211 [OF TIME AND ON THE BASIS OF THE TIME DURATION AND THE NUMBER OF LINES PRINTED, 
2212. ‘WHICH WILL BE PRINTED ON THE CONSOLE TERMINAL, THE PRINTING SPEED IS 
2213 SCALCULATED. AVAILABILITY OF A KW11-L OR A KW11=-P CLOCK ALLOWS 
2214 [DETERMINATION OF THE TIME INTERVAL WHICH CAN BE SPECIFIE BY THE OPERATOR TO BE 
2215 TANY VALUE IN THE RANGE FROM 4 TO 60 SECONDS. IF A CLOCK IS NOT INSTALLED IN THE 
$515 :SYSTEM, THEN THE OPERATOR CAN PERFORM THE PRINTING SPEED MEASUREMENT MANUALLY. 
2218 013646 GNTST 4 
3539 013646 . T4:: 
2220 013646 LET R1 := LSUNIT - 41 :NUMBER OF UNITS TO TEST 
(4) 013646 013701 002012 MOV LSUNIT,R1 
(6) 013652 005301 DEC R1 
2221 013654 IF MANSPD NE #0 THEN 
(6) 013654 005737 002252 TST MANSPD 
(9) 013660 001416 BEQ 50115$ 
2222 013662 MANUAL :DETERMINE IF MANUAL INTERVENTION ALLOWED 
(3) 013662 104450 CSMANI 
2223 013664 BCOMPLETE 1$ 
(2) 013664 103402 BCS 1$ 
2224 013666 EXIT TST 
(3) 013666 104432 TRAP — C$EXIT 
(3) 013670 002436 .WORD 110013-. 
2225 013672 1$: IF [NHINT EQ #0 THEN 
(6) 013672 005737 002244 TST INHINT 
(9) 013676 001003 BNE 50116$ 
2226 0137 EXIT TST 
(3) 013700 104432 ; TRAP = C$EXIT 
(3) 013702 002424 .WORD 110013-. 
2227 013704 ELSE 
(4) 013704 000403 - BR 50117$ 
(3) 013706 501168: 
2228 013706 : - LET WORK := PERIOD 
(4) 013706 013737 002254 002736 MOV PERIOD , WORK 
2229 013714 ENDIF 
(4) 013714 501178: 
2230 013714 ELSE 
(4). 013714 000403 | BR 501208 
(3) 013716 50115$: 
2231 013716 LET WORK := #60. 
(4) 013716 012737 000074 002736 MOV #60. , WORK 
2232 013724 ENDIF 
(4) 013724 . 501208: 
2233 013724 OUTPUT #PRTSPD,#29. :PRINT TEST ID 
2234 013760 INCR LUNIT FROM #0 TO R1 By #1 
(4) 013760 005037 002300 CLR LUNIT 
(5) 013764 000402 | BR 501218 
(4) 013766 501228: 
(7) 013766 005237 002300 INC LUNIT 
(5) 013772 501218: 
(5) 013772 023701 002300 CMP LUNIT,R1 
(7) 013776 003161 BG! 50123$ 
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LET ERRFLG := #0 
005037 002324 ERRFLG 
LET R2 := LUNIT SHIFT 1 

013702 002300 LUNIT,R2 

006302 A R2 
SELECT CLKTYP OF 4 VERIFY ;SET UP THE RIGHT CLOCK 

013746 002306 MO CLKTYP,=(SP) 

003403 50124$ 

021627 000004 , (SP) #6 

003402 BL 50125$ 

50124$: 


012716 000005 MO #5, (SP) 
50125$: 
A (SP) 


PC, (SP) 
a(SP)+,PC 


50133$-50126$ 
50132$-50126$ 
50131$-50126$ 
50130$-50126$ 
014050 ° 50127$-50126$ 


014052 CASE 1 
014052 50133$: 
014052 014454 JMP END4 ;JUST EXIT TEST NO CLOCK AVAILBLE 


014056 CASE 2 7KW11-L LINE CLOCK w— ¥ 


AD 
50126$: 


50127$ 


50132$: 
LET CLKENA := #100 ; INTERRUPT ENABLE/ CLR MONITOR 
012737 000100 002320 MOV #100,CLKENA 
LET R& := CLOCKP 
013704 002310 MOV CLOCKP ,R4 
LET CLKVEC := 4(R4) ; GET VECTOR FROM P-TABLE 
016437 000004 002316 : , MOV 4(R4) ,CLKVEC 
SETVEC CLKVEC ,ACLKTCK,4PRI06 ;SET UP INTERRUPT VECTOR 
012746 000300 MOV #PR106,-(SP) 
032216 #CLKTCK,~(SP) 
002316 CLKVEC ,~(SP) 
000003 #3,-(SP) 
C$SVEC 
014122 000010 #10,SP 


014126 } CASE 3 :kW11=P REAL TIME CLOCK 


50131$: 
LET CLKSET := CLKCSR + 42 
013737 002314 CLKCSR,CLKSET 
062737 000002 002314 A #2, CLKSET 
LET CLKENA := 4111 ;SET UP ENABLE BITS 
014144 012737 002320 #111, CLKENA 
; RUN, RATE 10KHZ, REPEAT INTR, DOWN, INT ENABLE 
014152 LET R& := CLOCKP 
014152 013704 MOV CLOCKP ,R4 
014156 LET CLKVEC := 4(R4) ; GET VECTOR FROM P-TABLE 


50127$ 
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(4) 014156 016437 000004 002316 MOV 4(R4) ,CLKVEC 
2254 014164 SETVEC CLKVEC ACLKTCK,APRI06 ; INTERRUPT VECTOR 
(7) 014164 012746 000300 MOV #PR106,-(SP) 
(6) 014170 012746 032216 MOV ACLKTCK,=(SP) 
(S) 014174 013746 002316 ; MOV CLKVEC,-(SP) 
(4) 014200 012746 MOV #3,-(S 
(3) 014204 104437 ; TRAP CSSVEC 
2582 014206 062706 009010 ADD #10,SP 
2256 014212 CASE 4 
(4) 014212 000401 BR 50127$ 
(4) 014214 50130$: 
2257 014214 000240 NOP sTHIS IS JUST A DUMMY 
2258 014216 ENDSELECT ; 
(3) 014216 50127$: 
2259 014216 LET LINCNT := #0 ;CLEAR LINE COUNTER 
(4) 014216 005037 002264 CLR LINCNT 
2260 014222 LET TIME := 40 sPRESET SECOND COUNTER TO 0 
(4) 014222 005037 032270 CLR TIME 
2261 014226 LET TICK := #60. :SET UP INITIAL CLOCK VALUE 
(4) 014226 012737 000074 032272 MOV #60.,TICK 
2262 014234 IF CHRBND EQ #0 THEN 
(6) 014234 005737 002246 TST CHRBND 
(9) 014240 001017 BNE 50134$ 
2263 014242 LET BNDPAT := #TABA64 764 CHARACTER BAND 
(4) 014242 012737 015712 015152 MOV #TABAGS ,BNDPAT 
2264 014250 LET WORK -= #133, 
(4) 014250 012737 000205 002736 MOV #133. ,WORK 
2265 014256 PRINTF #LPM64 ; SHOULD BE 285 LPM. 
(7) 014256 012746 015547 MOV #LPM64 ,-(SP) 
(6) 014262 012746 000001 MOV #1,-(SP) 
(3) 014266 010600 ; MOV SP,RO 
(4) 014270 104417 TRAP CSPNTF 
(4) 014272 062706 000004 ADD #4,SP 
2266 014276 ELSE 
(4) 014276 000416 BR 50135$ 
(3) 014300 50134$: 
2267 014300 LET BNDPAT := #TABA96 396 CHARACTER BAND 
(4) 014300 012737 016120 .015152 MOV #TABA96 ,BNDPAT 
2268 014306 LET WORK := #133. 
(4) 014306 012737 000205 002736 MOV #133. ,.WORK 
2269 014314 PRINT? #LPM96 ; ; SHOULD BE 204 LPM, 
(7) 014314 012746 015630 ' MOV . #LPM96 ,-( SP) 
(6) 014320 012746 000001 MOV #1,-(SP) 
(3) 014324 010600 MOV SP RO 
(4) 014326 104417 TRAP CSPNTF 
(4) 014330 062706 000004 ADD #4 SP 
2270 014334 ENDIF 
(4) 014334 50135$: 
2271 014334 004737 014514 JSR PC,REPLUP © 3D0 THE OUTPUT 
2272 014340 ENDINC 
(4) 014340 000612 BR 50122$ 
osFs 014342 50123$: ; 
2274 7 1F MANUAL PRINT SPEED TESTS HAVE BEEN PERFORMED INSURE PRINTERS ARE 


2275 ;BACK ON LINE WHEN DONE 
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2276 “s 

2277 014342 IF CLKTYP EQ #4 THEN 
(6) 014342 023727 002306 000004 (MP CLKTYP, #4 
(9) 014350 001020 BNE 50136$ 

2278 014352 ' LET FLAG := #0 sCLEAR <CR> FLAG 
(4) 014352 005037 002262 CLR FLAG 

2279 014356 PRINTF #MRESET 
(7) 014356 012746 005731 MOV AMRE SET ,=-(SP) 
(6) 014362 012746 00000! . MOV #1,-(SP) 
(3) 14 010600 MOV PRO 
(4) 014370 104417 TRAP CSPNTF 
(4) 014372 062706 000004 ADD #4 ,SP 

2280 014376 GMANIL READY,FLAG,100600, YES ~ ;WAIT FOR OPERATOR 
(3) 014376 104443 TRAP C$GMAN 
(3) 014400 04 : BR 10000$ 
(4) 014402 002262 -WORD FLAG 
(5) 014404 000130 .~ WORD TSCODE 
(5) 014406 006010 -WORD READY 
(5) 014410 100000 ~ WORD 
(3) 014412 10000$: 

2281 014412 ENDIF 
(4) 014412 50136$: 

2282 

2283 014412 LET OUTBUF := #14 
(4) 014412 012737 000014 002742 MOV #14,O0UTBUF 

gees 014420 OUTPUT #OUTBUF ,41 

2286 014454 ; END4: IF CLKTYP EQ #2 OR CLKTYP EQ #3 THEN 
(6) 014454 023727 002306 000002 CMP CLKTYP,42 
(8) 014462 001404 BEQ 50137$ 
(6) 014464 023727 002306 000003 ; CMP CLKTYP, 43 
(9) 014472 001006 . BNE 50140$ 
(6) 014474 50137$: 

2287 014474 CLRVEC CLKVEC : 
(3) 014474 013700 002316 MOV CLKVEC RO 
(3) 014500 104436 ; TRAP C$CVEC 

2288 014502 012777 000000 165602 MOV #0,aCLKCSR 

2289 014510 ENDIF poe 
(4) 014510 50140$: 

2290 ; 

2291 014510 EXIT TST 
(3) 014510 104432 TRAP CSEXIT 
(3) 014512 001614 - WORD L10013-. 

$558 THIS IS SUBROUTINED TO DECREASE THE SIZE OF THE INITIAL INCREMENT LOOP. 

2296 : 

2297 014514 REPLUP: 

2298 014514 IF CLKTYP EQ #4 THEN 
(6) 014514 023727 002306 000004 CMP CLKTYP, #4 
(9) 014522 001124 ; ye: BNE 50141$ 

2299 014524 PRINTF #OFFLIN ; TELL QPERATOR TO PLACE PRINTERS OFFLINE 
(7) 014524 012746 015271 MOV MOFFLIN,~(SP> 
(6) 014530 012746 000001 MOV #1,-(SP) 
(3) 014534 010600 , MOV SP,RO 
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(4) 014536 104417 TRAP CSPNTF 
(4) 014540 062706 000004 ADD a4 SP 
2300 014544 LET FLAG := #0 
(4) 014544 005037 002262 CLR FLAG - 
2301 014550 GMANIL READY ,FLAG, 100000, YES 
(3) 014550 104443 TRAP C 
(3) 014552 0004 BR 10001$ 
(4) 014554 002262 «WORD FLAG 
(5) 014556 000130 -WORD TS$CODE 
(5S) 014560 006010 «WORD READY 
(5) 014562 1 -WORD 1 
(3) 014564 10001$: 
2302 014564 PRINTF #ONLIN1,LUNIT ;PUT LUNIT TO TEST ON LINE 
(8) 013746 0023 ' MOV LUNIT,-(SP) 
(7) 014570 012746 015261 MOV MONL INT = (SP) 
(6) 014574 012746 MOV #2,-(SP) 
(3) MOV P 
(4) 014602 104417 TRAP CSPNTF 
(4) 014604 062706 000006 , ADD #6,SP 
2303 014610 PRINTF *ONLIN2,LUNIT END OF TEST. 
(8) 014610 013746 002300 MOV LUNIT,=(SP) 
(7) 014614 012746 015362 MOV #ONL IN2,= (SP) 
(6) 014620 012746 000002 MOV #2,-(SP) 
(3) 014624 010600 ; , MOV SP ,RO 
(4) 014626 104417 TRAP CSPNTF 
(4) 014630 062706 000006 ADD #6,SP 
2304 014634 PRINTF #ONLIN3,LUNIT 
(8) 014634 013746 002300 MOV LUNIT,~(SP) 
(7) 014640 012746 015460 MOV #ONLIN3,-(SP) 
(6) 014644 012746 000002 MOV #2,-(SP) 
(3) 014650 01 MOV SPR 
(4) 014652 104417 TRAP C 
(4) 014654 0627 000006 ADD #6,SP 
2305 014660 WHILE #BIT15 SETIN @LPCSR(R2) DO ; WAIT FOR LP_SET ON-LINE 
(4) 014660 50142$: 
(6) 014660 032772 100000 002340 BIT #BiT15,aLPCSR(R2 
(9) 014666 001402 BEQ 501438 
2306 014670 000240 NOP 
2307 014672 ENDDO 
(4) 014672 000772 BR 50142$ 
(3) 014674 501438: 
2308 014674 LET LINCNT := #0 


(4) 014674 005037 002264 CLR LINCNT 
309 014700 WHILE #B1T15 NOTSETIN @LPCSR(R2) DO ; weitieg Oe hy LP GOES OFF-LINE 


(6) 014700 032772 100000 002340 BIT #B1T15,@LPCSR(R2 
(9) 014706 001031 BNE 50145$ 
2310 014710 LET RS := BNDPAT 

(4) 014710 013705 015152 MOV BNDPAT ,R5 
2311 014714 LET R3 := WORK 

(4) 014714 013703 002736 MOV WORK ,R3 
2312 014720 WHILE R3 GT #0 DO ; PRINT R3 CHARACTERS 

(4) 014720 501468: 

(6) 014720 005703 aa TST R3 

(9) 014722 003417 BLE 501478 


2313 014724 ; WHILE #BIT7? NOTSETIN @LPCSR(R2) DO ; WAIT FOR READY 
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014724 : 501508: 
032772 000200 002340 BIT  —- #BIT7 @LPCSR(R2) 
001007 BNE 501518 . 


IF #BIT15 SETIN @LPCSR(R2) THEN 
032772 100000 002340 BIT #B1T15,aLPCSR(R2 
001402 BEQ 50152$ 
000137 015102 JMP 99$ ; EXIT LOOP IF OFF-LINE AGAIN 


ENDIF 
50152$: 
. ENDDO 
000765 BR 50150$ 
50151$: 
LET @LPBUF(R2) :B= (R5)+ ; PUT CHAR INTO LP BUFFER 
112572 MOVB (R5) +, @LPBUF (R2) 
LET R3 := R3 - #1 ; DECRIMENT CHAR COUNTER 
605303 DEC R3 
ENDDO 
000757 BR 501468 


50147$: 
BREAK  ; ALLOW CTL=C. ABORT 
104422 C$BRK 
LET LINCNT := LINCNT + #1 
005237 002264 LINCNT 
. ENDDO 
000743 BR 501448 
50145$: 
ELSE 


000443 BR 50153$ 


50141$: 
IF CLKTYP EQ #3 THEN é 
023727 002306 000003 CMP CLKTYP, 43 
001003 


50754$ 
LET @CLKSET := #1666. ; 1/60 SEC. 
012777 003202 MOV. #1666. ,@CLKSET 
ENDIF nues 


50 
LET @CLKCSR := CLKENA ;ENABLE THE CLOCK TO DO ITS THING 
013777 002320 MOV CLKENA,@CLKCSR 


LET LINCNT := 40 
005037 002264 CLR LINCNT 
WHILE TIME LT PERIOD DO ; REPEAT UNTIL A eae 


023737 032270 002254 CMP TIME ,PERIOD 
002023 BGE 50156$ 
LET RS := BNDPAT 
013705 015152 MOV BNDPAT ,R5 
LET R3 := WORK 
013703 002736 MOV WORK ,R3 
WHILE R3 GT #0 DO ; SEND R3 eed: 


005703 ” TST R3 
003412 , BLE 501608 
, WHILE #BIT7 NOTSETIN @aLPCSR(R2) DO igwait FOR READY 
032772 002340 ’ BIT #8117, ALPCSR(R2) 
015056 001002 BNE 50162 
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NOP ' 
ENDDO 
BR 50161$ 
50162$: 
LET @LPBUF(R2) :B= (R5)+ ; PUT DATA INTO BUFFER 
MOVB (R5)+,@LPBUF (R2) 
LET R3 := R3 = #1 ; DECRIMENT CHAR COUNTER 
DEC R3 
ENDDO 
BR 50157$ 
. 50160$: 
LET LINCNT := LINCNT + #1 
INC LINCNT 
ENDDO 
BR 50155$ 
50156$: 


ENDIF 
99$: 


50153$: 
MOV #0,aCLKCSR 
: REPORT TOTAL NUMBER OF LINES PRINTED 


PRINTB #LINPER,LINCNT ,LUNIT 
MOV LUNIT,-(SP) 
MOV LINCNT ,~(SP) 
MOV #LINPER,-(SP) 
MOV #3,-(SP) 
MOV SP RO 
TRAP C$PNTB 
ADD #10,SP 
RTS PC :GO BACK AND DO IT AGAIN 
EXPECTED ERROR HANDLER 
LPERR2: LET ERRFLG := #1 :SET ERROR FOUND 
MOV #1,ERRFLG 
RTS PC sAND EXIT 
BNDPAT: .WORD 0 ; CONTAINS ADDRESS OF PRINT PATTERN 
»NLIST BEX . 


SASSOCIATED MESSAGES 


LINPER: .ASCIZ /%N%D3%A LINES PRINTED ON wi %D22N/ 

OFFLIN: oe CIZ /ZNZAINSURE PRINTER(S) OFF LINE./ 

ONLIN1: .ASCIZ/%NZAPLACE LUNIT %D2%A ON LINE TO INITIATE TIME PERIOD FOR MANUAL / 
ONL IN2: "ASCI? /ENZAPRINTING SPEED MEASUREMENT AND BACK OFF LINE TO TERMINATE/ 
ONLIN3: .ASCIZ /%NZATHE TIME INTERVAL .%N/ 

PRTSPD: .ASCIZ /PRINTING g asii MEASUREMENT /<12><12><12> 


LPM64: .ASCIZ /%NZA64 CHARACTER BAND SHOULD PRINT AT 285 LPM. 2N/ 
“LIST BER SCIZ /%N%A96 CHARACTER BAND SHOULD PRINT AT 204 LPM. 2N/ 


64 CHARACTER BAND PATTERN 285 LPM 


6 
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2373 : 4 

$35 -SBTTL PRINT SPEED TEST PATTERNS 

2376 015712 105 061 104 TABA64: .BYTE 105,961,104,075,064,041,103,136,102,060,163 
015715 075 064 041 
015720 103 136 102 
015723 060 163 

2377 015725 042 062 134 BYTE 042,062,134,054,124,101,133,101,133,043,135 
015730 054 124 101 
015733 133 101 133 

15736 043 135 
2378 015740 041 105 061 BYTE 041,105,061,100,075,077,041,056, 136,074,060 


015746 041 056 136 
015751 074 060 

2379 015753 076 042 073 «BYTE 076,042,073,042,073,134,055,124,044,133,057 
015756 042 073 134 


2380 015766 135 054 105 -BYTE 135,054,105,072,100,050,077,052.056,051,056 
015771 072 100 050 
015774 077 052 056 
015777 051 056 

2381 016001 051 074 046 -BYTE 051,074,046,076,071,073,045,055,053,044,137 


2382 016014 057 070 054 «BYTE 057,070,054,132,072,131,072,131,050,067,052 


016025 067 052 
2383 016027 130 051 127 -BYTE 130,051,127,046,066,071,126,045,125,053,065 
016032 046 066 071 : 
016035 igs bee 125 
2384 016042 137 123 137 BYTE =137,123,137,123,070,122,132,121.131.064,067 ‘ 
016045 123 070 122 
016050 132 121 131 
016053 064 067 
2385 016055 120 130 117 BYTE 120,130,117,124,063,066,116,126,115,126,115 
016060 124 063 066 
016063 116 126 115 
016066 126 115 
2386 016070 125 062. 065 BYTE 125,062,065,114,123,113,122,061,121,112,064 
016073 114 123 113 : ° 
016076 122 061 121 
016101 112 064 
2387 016103 111 120 110 BYTE =111,120,110,117,060,117,060,063,107,116,106,012,015 
016106 117 060 117 
016111 060 063 107 
016114 116 106 012 
016117 015 
2388 -EVEN 
2389 
2390 -EVEN 
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— CHARACTER BAND TABLE 204 LPM. 


Hs ~ aes PRINT SPEED PATTERN 96_CHARACT 


061.058, 144,067 143,043. 142,041 060,052, 100 
075,140,174,176,041,056,054,056,054, 136,042 
176,134,173, 133,175,135,055, 164,047, 100,043 
077.041.074,041,074,052,062.075,076,174,073 
041,053,054 ,071,042,057, 134,072, 133,050,133 
050,135,051, 164,070, 100,046, 124,045, 123,044 
122,067,064,137,073,132,073,132,053,131,074« 
066,057, 130,072,127.050,120,151.125,070,065 
046, 124,046,124 ,045,123,044,122,067,064,137 
121,132, 120,151,117,066,063,130,116,130,116 


127,115,126,114,125,113,065,062,124,112.123 


111,122,110,064 ,061,064,061,121,107,102,106,012,015 
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(3) 016326 L10013: 
(3) 016326 104401 TRAP CSETST 
2411 016330 ENDMOD 
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-SBTTL DAVFU ERROR DETECTION 
016330 BGNMOD 


soe 

;THIS TEST CONSISTS OF TWO PARTS TO VERIFY 
; THAT THE DAVFU CAN DETECT ERROR CONDITIONS 
;OF TWO TYPES: 

31. DAVFU WILL NOT ACCEPT INCOMPLETE DATA. 
32. DAVFU WILL NOT ACCEPT DATA THAT DOES 

3 NOT INCLUDE A STOP BIT (ONE) CHARACTER. 


BGNTST 5 


EXIT TEST IF ~~. OPTION IS NOT SPECIFIED 
If VFUOPT EQ #0 THEN 
005737 VF UOPT 
001002 BNE 50163$ 
EXIT TST 
104432 CSEXIT 
001272 ° L10014-. 


ENDIF 
50163$: 


PRINT TEST a oa ae 
OUTPUT MVFUERR, #25., LPERR 
DETERMINE IF MANUAL INTERVENTION iS ALLOWED 
MANUAL 


016376 
016376 
016400 
016400 


BCOMPLETE 1$ 


EXIT TEST IF NEGATIVE DETERMINATION FOR MANUAL 
pn IT yt MADE 


;DETERMINE IF INTERVENTION IS INHIBITED 
1$: TST INHINT 


BNE 2$ 
EXIT TST 
CSEXIT 
£10014-. 
23: BGNSUB 


C$8SUB 
SEND MESSAGE TO OPERATOR TO SET VFU-FLS SWITCH(ES) 
PRINTF #VFUSEL ; 
#VFUSEL ,~(SP) 
1,-(SP) 


#4 ,SP 
;WAIT FOR ro. _RESPONSE 
LET FLAG := #0 


GMANIL READY,FLAG,100000, YES 


FLAG 


CSGMAN 
10000$ 
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(4) 016452 002262 .WORD FLAG 
(5) 016454 000130 .WORD  TSCODE 
(5) 016456 006010 «WORD READY 
(5S) 016460 100000 «WORD 100000 
(3) 016462 10000$: 

2447 ;PERFORM INCOMPLETE DATA ERROR DETECTION TEST 

2448 016462 LET R1 := LSUNIT 

(4) 016462 013701 002012 MOV LSUNIT,R1 
(6) 016466 005301 DEC R1 
2449 016470 INCR LUNIT FROM #0 TO R1 BY #1 

(4) 016470 005037 002300 CLR LUNIT 
(5) 016474 000402 BR 50164$ 
(4) 016476 50165$: 

(7) 016476 005237 002300 INC LUNIT 
(S) 016502 50164$: 

(5) 016502 023701 002300 CMP LUNIT,R1 
(7) 016506 003056 BGT 50166$ 
2450 016510 LET R2 := LUNIT SHIFT 1 

(4) 016510 013702 002300 MOV LUNIT,R2 
(7) 016514 006302 ASL R2 
2451 016516 LET FLAG := #0 

(4) 016516 005037 002262 CLR FLAG 
2452 016522 OUTPUI MINCDAT, #41.,, LUNIT 
2453 016556 OUTPUI MINCTBL, #5, AGETFLG, LUNIT 
2454 016612 IF FLAG EQ #0 THEN 

(6) 016612 005737 002262 TST FLAG 
(9) 016616 001071 BNE 501678 
2455 016620 LET ERRTBL(R2) := ERRTBL(R2) + #1 

(6) 016620 005262 002676 INC ERRTBL (R2) 
2456 016624 ; LET L$LUN := LUNIT 

(4) 016624 013737 002300 002074 MOV LUNIT,LSLUN 
2457 016632 ERRHRD 11, ERRO6 

(4) 016632 104456 TRAP —- CSERHRD 
(5) 016634 000013 -WORD 11 

(5) 016636 017502 -WORD ERRO6 
(5) 016640 000000 WORD 0 

2458 016642 ENDIF 

(4) 016642 501678: 

2459 016642 END INC 

(4) 016642 000715 BR 501658 
(3) 016644 50166$: 
2460 016644 ENDSUB 

(3) 016644 L10015: 

oi?) 016644 104403 TRAP —- C$ESUB 
2462 016646 BGNSUB 

(3) 016646 15.2: 

(3) 016646 104402 TRAP C$8SUB 
2463 ;PERFORM STOP CODE ERROR DETECTION TEST 
2464 016650 INCR LUNIT FROM #0 TO R1 B 

(4) 016650 005037 002300 CLR LUNIT 
(5) 916654 000402 BR 501708 
(4) 016656 50171$: 

(7) 016656 005237 002300 INC LUNIT 
(S) 016662 50170$: 


(5) 016662 023701 002300 CMP LUNIT,R1 
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(7) 016666 003147 BGT 50172$ 
2465 016670 LET R2 := LUNIT SHIFT 1 
(4) 016670 013702 002300 MOV LUNIT,R2 
(7) 016674 006302 ASL R2 
2466 016676 LET FLAG := #0 
(4) 016676 005037 002262 CLR FLAG 
2467 016702 OUTPUI #NOSTOP, #35.,, LUNIT 
2468 016736 OUTPUI ANSTTBL, #6, AGETFLG, LUNIT 
2469 016772 INCR VFUCMD FROM #200 TO #213 BY #1 
(4) 014772 012737 000200 002332 MOV #200, VFUCMD 
(5) 017000 000402 BR 50173$ 
(4) 017002 501748: 
(7) 017002 005237 002332 INC VFUCMD 
(5) 017006 50173$: 
(5) 017006 023727 002332 000213 CMP VFUCMD #213 
(7) 017014 003052 BGT 50175$ 
2470 017016 LET OUTBUF := #15 :''CR'' TO OUTPUT BUFFER 
(4) 017016 012737 000015 002742 MOV #15,OUTBUF 
2471 017024 OUTPUI MOUTBUF, 41, GETFLG, LUNIT 
2472 017060 DELAY 2 
(2) 017060 012727 000002 MOV #2, (PC)+ 
(2) 017064 000000 WORD 
(2) 017066 013727 002116 MOV LSDLY, (PC)+ 
(2) 017072 000000 . WORD 
(2) 017074 005367 177772 DEC -6(PC) 
(2) 017100 001375 BNE 4 
(2) 017102 005367 177756 . DEC ~22(PC) 
(2) 017106 001367 BNE .-20 
2473 017110 IF FLAG EQ #0 THEN 
(6) 017110 005737 002262 : TST FLAG 
(9) 017114 001011 BNE 50176$ 
2474 017116 LET ERRTBL(R2) := ERRTBL(R2) + #1 
6) 017116 005262 002676 INC ERRTBL (R2) 
2475 017122 LET L$LUN := LUNIT 
(4) 017122 013737 002300 002074 MOV LUNIT,LSLUN 
2476 017130 ERRHRD 12, ERRO7 
(4) 017130 104456 TRAP CSERHRD 
(5) 017132 000014 .WORD 12 
(5) 017134 017553 “WORD ERRO7 
(5) 017136 000000 “WORD 0 
2477 017140 ENDIF | 
(4) 017140 50176$: 
2478 017140 END INC 
(4) 017140 000720 BR 501748 
(3) 017142 50175$: 
2479 017142 LET OUTBUF := #14 :'FF’’ TO OUTPUT BUFFER 
(4) 017142 012737 000014 002742 MOV #14 ,QUTBUF 
2480 017150 OUTPUI #OUTBUF, 41,,LUNIT 
2481 017204 END INC 
(4) 017204 000624 BR 501718 
(3) 017206 50172$: 
2482 017206 EXIT TST 
(3) 017206 104432 TRAP —- CSEXIT 
(3) 017210 000422 .WORD 110014- 
2483 017212 ENDSUB 


(3) 017212 L10016: 
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TRAP 

sEXPECTED ERROR ROUTINE FOR THIS TEST 

GETFLG: GMANIL RESET, FLAG, 100000, YES 
TRAP 
Bk 
- WORD 
. WORD 
. WORD 
. WORD 

100008: 

RTS PC ;RETURN 

«NLIST BEX 

VFUERR: .ASCIZ /DAVFU ERROR DETECTION/<12><12><12> 

INCDAT: .ASCIZ /DAVFU INCOMPLETE DATA ERROR DETECTION/<12><12><12> 

NOSTOP: .ASCIZ /DAVFU STOP CODE ERROR DETECTION/<12><12><12> 

RESET: .ASCII /TEST O.K. = PLACE PRINTER ON LINE AND DEPRESS/ 

eASCIZ /'RETURN'’ WHEN READY. /<12> 

ERRO6: .ASCIZ /DAVFU INCOMPLETE DATA ERROR NOT DETECTED/ 

ERRO7: :ASCIZ_/DAVFU STOP CODE ERROR NOT DETECTED/ 

INCTBL: [BYTE 356, 1, 2, 3, 357__ 

NSTTBL: :BYTE 356, 0. 0. 0. 0, 357 

“EVEN 
-LIST BEX 
ENDTST 


ENDMOD 


L10014: 
TRAP 


CSESUB 


CSETST 


SEQ 0082 
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2514 .SBTTL DAVFU LINE COUNT PAPER CONTROL 

2516 017634 BGNMOD 
2517 ++ 
2518 ‘THIS TEST CHECKS THE LINE COUNT METHOD 

2519 SOF PAPER ADVANCE USING THE DAVFU. THE 

2520 | ‘DAVFU MEMORY IS LOADED WITH DUMMY 

2521 “DATA, AND THEN EACH OF THE LINE COUNT 

2522 “SLEWING COMMANDS IS TESTED IN SEQUENCE 

| $357 SIN THE RANGE FROM ZERO TO 15 LINES. 

2525 
2526 017634 BGNTST 6 

(3) 017634 

2527 :EXIT TEST IF DAVFU OPTION Is NOT SPECIFIED 

2528 017634 IF VFUOPT EQ #0 THEN 

(6) 017634 005737 002250 VFUOPT 
(9) - 017640 001002 BNE - 50177$ 
2529 017642 EXIT TST . 

(3) 017642 104432 TRAP —- CSEXIT 
(3) 017644 001360 “WORD 10017=. 
2530 017646 ENDIF 

(4) 017646 50177$: 

2531 :PRINT TEST IDENTIFICATION 

2532 017646 OUTPUT #VFULCT, #33., LPERR 

2533 >SEND MESSAGE TO opthaton TO SET VFU=FLS SwITCH(ES) 

2534 017702 PRINTF #VFUSEL 

(7) 017702 012746 003615 MOV w#VFUSEL . -(SP) 
(6) 017706 012746 000001 MOV #1,-(SP) 
(3) 017712 010600 MOV SP.RO 
(4) 017714 104417 TRAP CSPNTF 
(4) 017716 062706 000004 ADD #4, SP 
2535 :WAIT FOR OPERATOR RESPONSE 

2536 017722 . LET FLAG := #0 

(4) 017722 005037 002262 . , CLR FLAG 
2537 017726 GMANIL READY, FLAG, 100000. YES 

(3) 017726 104443 7 TRAP  C$GMAN 
(3) 30 BR 10000$ 
(4) 017732 002262 “WORD FLAG . 
(5) 017734 130 "WORD TSCODE 
(5) 36 006010 "WORD READY 
(5) 017740 1 "WORD 100000 
(3) 017742 100008: 

2538 Z INITIALIZE PARAMETERS 

2539 017742 ; (ET VFUCMD := #200 : 

(4) 017742 012737 000200 002332 MOV #200, VF UCMD 
2540 017750 LET RG := #0 

(4) 017750 005004 CLR RG 
2541 :LOAD DAVFU MEMORY 
2542 017752 OUTPUT WVFUTBL, #18. 
2543 :PRINT FIRST PART OF ZERO LINE SLEW MESSAGE 

2544 020006 OUTPUT #FSTMSG, #29. 

2545 >SEND ZERO LINE SLEW COMMAND 

2546 020042 . OUTPUT #VFUCMD, 

3547 :PRINT SECOND Bart’ OF ZERO LINE SLEW MESSAGE 


2548 020076 OUTPUT MSECMSG, #103. 
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LET OUTBUF := #15 


:"'CR'’ TO OUTPUT BUFFER 


OUTPUT #OUTBUF, #1. 
;SEND OTHER DAVFU PAPER ADVANCE COMMANDS 
INCR VFUCMD FROM #221 TO #237 BY #1 


;PERFORM 


BR 
50201$: 
50200$: 


PAPER MOVEMENT 


OUTPUT #VFUCMD, 41. 
LET OUTBUF := #15 


OUTPUT MOUTBUF, #1. 
; INSERT PAPER MOVEMENT VALUE 
LET OUTBUF := LCTTBL(R4) 


OUTPUT #OUTBUF ,#2 

;APPEND MESSAGE AND PRINI MOVEMENT ME SSAGE 
OUTPUT #LCTMSG, #131. 
LET R4 := R4 + #2 


END INC 


50202$: 


LET OUTBUF := #14 
OUTPUT MOUTBUF, #1. 


EXIT TS? 


-NLIST BEX 


VFULCT: 
LCTTBL: 
VFUTBL: 


FSTMSG: 
SECMSG: 


LCTMSG: 


- EVEN 
LIST BEX 


ENDTST 


-ASCIZ /DAVFU LINE COUNT PAPER CONTROL/ <12><12><i2> 


-EVEN 
-ASC1Z/010203040506070809101112131415/ 


BYTE 356, 043 46 
“BYTE 7 ‘e* 
“BYTE *, i 20, i3,°1 


eASCIZ /THIS LINE SHOULD BE PRINTED / 
wey em ON ONE LINE IF SLEWED ZERO LINES/ © 


-ASCIZ /. 


> 
wn 
a“ 
i oom 
— 
7 
: 
; 
. 
. 
° 
. 
. 
> 
° 
. 
; 
. 
° 
. 
° 
2 
° 
; 
: 
. 
~~ 


SEQ 0084 
#15 ,QUTBUF 


MOV " #221, VFUCMD 
502008 


INC VF UCMD 
CMP VFUCMD , #237 
50202$ 


MOV #15, OUTBUF 


MOV LCTTBL (R4) ,OUTBU 


ADD #2,R4 
BR 50201$ 


MOV #14 ,OUTBUF 


TRAP CSEXIT 
. WOR L1 


SEQ 0085 
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(3) 021224 10017: 
(3) 0212246 104401 TRAP 


2589 : 
2590 021226 | ENDMOD 
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.SBTTL DAVFU CHANNEL SELECTION PAPER CONTROL 
BGNMOD 


“THIS TEST CHECKS DAVFU PAPER pg USING 
:STOP BITS LOADED IN DAVFU MEMORY. THE 
DATA FORMAT IS SELECTED TO PROVIDE AN 

[OUTPUT IN A TRIANGULAR PATTERN. 


BGNTST 7 


EXIT TEST IF DAVFU OPTION IS NOT SPECIFIED 
IF VFUOPT EQ #0 THEN 


VF UOPT 
50203$ 


CSEXIT 
L10020-. 


EXIT TST 


ENDIF 


PRINT TEST IDENTIFICATION 
OUTPUT #VFUCHL, #40. 

:SEND MESSAGE TO OPERATOR TO SET VFU-FLS SWITCH(ES) 
PRINTF #VFUSEL 


50203$: 
AMVFUSEL ,~(SP) 
P) 


;WAIT FOR RESPONSE FROM OPERATOR 
LET FLAG := #0 


GMANIL READY,FLAG, 100000, YES 


;LOAD DAVFU MEMORY 
OUTPUT a * #50. 


:SET UP ITERATION COUNTER 
R4 :BACK UP COUNTER 
R4, #1 “TEST FOR LAST TIME THROUGH 
3 BRANCH IF LAST TIME THROUGH FALSE 

: SEND paben INSTRUCTIONS TO ALL j2 CHANNELS 

$$: INCR INSTR FROM #200 TO #213 BY #1 

MOV #200, INSTR 

502048 

50205$: 


50204$: 


INSTR 








CZLPLAO LP25 TEST 
CZ2LPLA.P11 


MACY11 ae. 


01-OCT-79 09:25 


(5) 021426 023727 022216 000213 
003125 


(7) 021434 


02 
021610 


02 
021710 
021710 


012737 


013703 


142703 


005703 
001420 


005303 
000756 


012737 
000645 
012737 
000402 
005337 
023727 
002504 
013703 
142703 


005703 
001420 


005303 
000756 


012737 


000015 002742 


022216 
000360 


000015 002742 


000213 022216 


022216 
022216 000200 


022216 
000360 


000015 002742 


J.7 
By lone 09:27 PAGE 25-1 
AVFU CHANNEL SELECTION PAPER CONTROL 


PERFORM PAPER MOVEMENT 


OUTPUT #INSTR, #i 
LET OUTBUF := #15 


OUTPUT #OUTBUF, #1 
oer Pr a COUNT 


T R3 := INSTR 
BICB #360, R3 


WHILE R3 NE #0 DO 


OUTPUT #CHARSP, #1 
LET R3 := R3 - #1 


ENDDO 


#CHARX, 
LET OUTBUF := 


OUTPUT MOUTBUF , 


END INC 


OUTPUT MINSTR, #1. 


LET R3 := INSTR 
BICB #360, R3 


- OUTPUT a 
;SEND PRINT COMMAND TO sas SPACES AND X'S 


sDUPLICATE TEST TO REVERSE OUTPUT PATTERN 
DECR INSTR FROM #213 TO #200 BY #1 


WHILE R3 NE #0 DO 


OUTPUT #CHARSP, #1 
LET R3 := R3 - #1 


ENDDO 


OUTPUT ACHARX, 


LET OUTBUF := 


OUTPUT #OUTBUF , 


#1 
#15 


#1. 


#1. 


50207$: 


502108: 


50206$: 


50212$: 
50211$: 


50214$: 


502158: 


BGT 





SEQ 0087 


INSTR,#213 
50206$ 


#15 ,OUTBUF 


INSTR,R3 


R3 
50210$ 


R3 
50207$ 


#15 ,OUTBUF 
50205$ 
#213, INSTR 
50211$ 
INSTR 
INSTR ,#200 


50213$ 


INSTR,R3 


R3 
50215$ 


R3 
502148 


#15, OUTBUF 
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CZLPLA.P11 01-OCT-79 09:25 DAVFU CHANNEL SELECTION PAPER CONTROL 
2652 022142 ENDDEC 
(4) 022142 000666 BR 50212$ 
(3) 022144 50213$: 
2653 022144 000137 021376 JMP 2s ;GO BACK AND TRY IT AGAIN 
2654 022150 4$: LET OUTBUF := #14 
(4) 022150 012737 000014 002742 MOV #14 ,OUTBUF 
2655 022156 OUTPUT #OUTBUF, #1 
2656 022212 EXIT TST 
(3) 022212 104432 TRAP CSEXIT 
ask? 022214 000142 -WORD 1L10020-. 
2658 022216 000000 INSTR: .WORD 0 
2659 022220 043126 020125 ‘VFUCHL: .ASCIZ /DAVFU CHANNEL SELECTION PAPER CONTROL/ <12><12><12> 
022226 044103 047101 042516 
234 020114 0425235 042514 
022242 052103 047511 020116 
022250 040520 042520 020122 
022256 047503 052116 047522 
022264 005114 005012 000 
2660 022272 -EVEN 
2661 022272 040 CHARSP: .BYTE 40 
fry 022273 130 CHARX: .BYTE 130 
2664 022274 356 001 000 VFUDAT: .BYTE 356, 1, 0. 2, 0. 4, 0 
022277 002 000 004 
022302 000 
2665 022303 010 000 020 -BYTE 10, 0, 20, 0, 40, 0. 0, 1 
022306 000 040 000 
022311 000 001 
2666 022313 000 002 000 -BYTE 0, 2, 0, 4, 0, 10, 0, 20 
022316 004 000 010 
022321 000 020 
2667 0223235 000 040 000 -BYTE 0, 40, 0, 40, 0, 20, 0. 10 
022326 040 000 020 
022331 000 010 
2668 022333 000 004 000 -BYTE 0, 4, 0, 2, 0, 1, 40, 0 
022336 002 000 001 
022341 040 000 
2669 022343 020 000 010 BYTE 20, 0. 10, 0, 4, 0. 2, 0 
022346 000 004 000 
022351 002 000 
2670 022353 001 000 357 -BYTE 1, 0, 357 
2671 -EVEN 
2672 022356 ENDTST 7 
(3) 022356 L10020: 
2675 022356 104403 TRAP CSETST 


2674 022360 ENDMOD 


7 
CZLPLAC LP25 TEST MACY11 Fon ae ata Thue -79 09:27 PAGE 26° SEQ 0089 
CZLPLA.P11 01-0CT=79 09:25 ATA TRANSFER PATHS 


gore -SBTTL DATA TRANSFER PATHS 
sore 022360 BGNMOD 


p++ 
: THIS TEST CHECKS THE DATA TRANSFER 

2681 PATHS FROM THE PROCESSOR INTERFACE 

2682 :10 THE PRINTER OUTPUT. AN ALTERNATING 
2683 ATTERN OF ONES AND ee CORRE SPOND ING 
2684 10 AN ALTERNATING STRING * AND 

2685 :"U'' CHARACTERS ARE TRANSMITTED ON THE 
2686 sFULL 132 COLUMNS. AFTER 16 LINES OF 
2687 THIS PATTERN, THE OUTPUT PATTERN IS 
2688 ; SWITCHED TO AN ALTERNATING PATTERN 

2689 [OF “"2'' AND ‘‘a'' CHARACTERS FOR ANOTHER 


2693 022360 BGNTST 8. 
(3) 022360 T8:: 
2694 ;PRINT 4 gy Supe 
2695 022360 OUTPUT #DATP #22. 
2696 ;PRINT ALTERNATING STRINGS OF on 
2697 022414 INCR PATTERN FROM #1 TO #2 BY # 
(4) 022414 012737 000001 022732 MOV #1 PATTERN 
000402 50216$ 


(4) 022424 50217$: 

(7) 022424 005237 022732 INC PATTERN 

(5) 022430 50216$: 

(S) 022430 023727 022732 000002 CMP PATTERN, #2 
003076 502208 


2698 022440 IF PATTERN EQ #1 THEN , 
(6) 022440 023727 022732 000001 ie CMP PATTERN, #1 
(9) 022446 001004 BNE 50221$ 

2699 022450 LET CHAR :B= #°U 
(4) 022450 112737 000125 022702 MOVB = #"U, CHAR 

2700 022456 ELSE 
(4) 022456 000403 BR 50222 
(3) 022460 50221$: 

2701 022460 LET CHAR :B= #'? C 
(4) 022460 112737 000077 022702 MOVB #"?, CHAR 

(2702 022466 ENDIF | : 

- (4) 022466 50222$: 

2703 022466 LET R4& := #OUTBUF 
(4) 022466 012704 002742 MOV #OUTBUF ,R4 

2704 022472 INCR CCNT FROM #1 TO #66. BY #41 
(4) 022472 012737 000001 002270 MOV #1,CCNT 
(5) 022500 000402 BR 50223$ 
(4) 022502 , 502248: 

(7) 022502 005237 002270 INC CCNT 
(5) 022506 502238: 

(5) 022506 023727 002270 000102 CMP CCNT #66 
(7) 022514 003011 BGT 50225$ 

2705 022516 LET (R4)+ :B= CHAR 
(4) 022516 113724 022702 MOVB CHAR, (R4) + 

2706 022522 105137 022702 COMB CHAR . 

2707 022526 LET (R4)+ :B= CHAR 


M 
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CZLPLA.P11 01-OCT-79 09:25 DATA TRANSFER PATHS 


022526 113724 022702 CHAR, (R4)+ 
0225 105137 022702 COMB CHAR 
END INC 
000761 50224$ 


50225$: 
LET (R4)+ :B= 415 
112724 #15, (R4)+ 
; LET (R4&) :B= #12 
112714 #12, (R4) 
INCR LINCNT FROM #1 TO 416. BY 41 
012737 #1,LINCNT 
000402 50226$ 
50227$: 
005237 LINCNT 
50226$: 
023727 000020 LINCNT, #16. 
502308 


003017 
OUTPUT #OUTBUF, 4134. 
END INC 
000753 50227$ 
50230$: 
ENDINC 


000674 50217$ 


50220$: 
LET OUTBUF :B= 414 
002742 #14, OUTBUF 
OUTPUT M#OUTBUF, #1 
EXIT TST 
CSEXIT 
L10021-. 


CHAR:  .BYTE 0 | 
052101 020101 DATPTH: :ASCIZ /DATA TRANSFER PATHS/ <12><12><12> 


022724 


-EVEN 
022732 PATTERN: 
ENDTST 
L10021: 
TRAP CSETST 


ENDMOD 





N 
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CZLPLA.P11 01-OCT-79 09:25 NTABLE CHARACTERS 


-SBTTL PRINTABLE CHARACTERS 
022736 BGNMOD 


3¢¢ 

;THIS TEST CHECKS FOR PROPER PRINTING 
OF ALL PRINTABLE CHARACTERS. A ROW 
[OF EACH PRINTABLE CHARACTER WILL 

T APPEAR AS OUTPUT ON THE LINE 
;PRINTER. 


BGNTST 9. 


OUTPUT #PRICHR, #23. 
IF CHRBND EQ #0 THEN 


005737 
001004 


CHRBND 
50231$ 
LET WORK := #137 


012737 #137 ,WORK 
ELSE 
000403 50232$ 


50231$: 
LET WORK := #176 
012737 000176 002736 #176, WORK 


ENDIF 
502328: 
INCR CHAR FROM #40 TO WORK BY #1 
612737 000040 022702 #40, CHAR 
000402 BR 50233$ 
50234$: 
005237 022702 CHAR 
50233$: 
023737 022702 CHAR , WORK 
003042 50235$ 
LET R4 := #OUTRUF 
012704 002742 MOUTBUF ,R4 
INCR CCNT FROM #1 TO #132. BY #1 
012737 000001 002270 #1,CCNT 
000402 50236$ 


502378: 
005237 002270 CCNT 
50236S: 
023727 002270 000204 CCNT #132. 
003003 50240 
LET (R4)+ : 
113724 022702 CHAR, (R4) + 
ENDINC 
000767 502378 


502408: 
LET (R4)+ :B= #15 
112724 #15, (R4)+ 
LET (R4)+ :B= #12 
112724 #12, (R4)+ 
OUTPUT #OUTBUF, #134. 
END INC 
000730 50234$ 
023146 502358: 





CZLPLAO LP25 TEST 


CZ2LPLA.P11 01-OCT-79 09:2 
2758 023146 
(4) 023146 112737 000014 
2759 023154 
2760 023210 
(3) 023210 104432 
(3) 023212 32 
2761 
2762 023214 051120 0467111 
023222 046102 020105 
0232 051101 041501 
023236 051522 005012 
2763 
2764 
2765 023244 
(3) 023244 
(3) 023244 104401 
2766 
2767 023246 
2768 


oy! 30A (1052) 


002742 


saliatane t 09:27 PAGE 27-1 
NTABLE CHARACTERS 


LET OUTBUF :B= #14 


MOVB 
OUTPUT #OUTBUF, #1 
EXIT TST 

TRAP 

.~ WORD 
PRTCHR: .ASCIZ /PRINTABLE CHARACTERS/ <12><12><12> 

~EVEN 
ENDTS7 
L10022: 

TRAP 

ENDMOD 


SEQ 0092 


#14,0UTBUF 


CSEXIT 
L10022-. 


CSETST 


C 
CZLPLAO LP25 TEST MACY11 30A(1052) 01-OCT-79 09:27 PAGE 28 
CZLPLA.P11 01-OCT-79 09:25 NON=PRINTABLE CHARACTERS 


-SBTTL NON-PRINTABLE CHARACTERS 
023246 Bae 
iTHIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS. 


[EACH CHARACTER WILL APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL 
[CODE ACCOMPANIED WITH ITS MNEMONIC. 


023246 BGNTST 10. 
023246 
; INDICATE TEST CURRENTLY BEING DONE 
tis OUTPUT #NONCHR 464. 
LET R4 := #NONBUF 
024137 


: SETUP LINE COUNT ACORDING TO CHRBND SWITCH 


IF CHRBND EQ #0 THEN 
005737 


CHRBND 
001004 50241$ 
LET WORK] := #32. 
012737 #32. ,WORK1 
ELSE 
000403 50242$ 


502418: 
LET WORK1 : 
012737 002740 #27... WORK1 
END IF 
023332 | 502428: 


: DO ONE LINE FOR EACH TABLE ENTRY 


023332 INCR LINCNT FROM #0 TO WORK] BY #1 

005037 — LINCNT 

000402 BR 50243$ 
50244$: 

005237 LINCNT 
50243$: 

023737 002740 LINCNT ,WORK1 

003056 50245$ 


LET R3 := AOUTBUF 
012703 2 #OUTBUF ,R3 


> MOVE CODE AND MNEMONIC TO PRINT BUFFER 
INCR WORK FROM #1 TO #8. BY #41 

012737 002736 - #1, WORK 

000402 502468 
50247$: 

005237 002 WORK 
502468: 

023727 000010 

003002 


Boat 
LET (R3)+ :B= (R4)+ 
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CZLPLA.P11 01-OCT-79 09:25 NON=PRINTABLE CHARACTERS 


112423 (R4)+, (R3)+ 
END INC 
000770 BR 50247$% 
502508: 
PUT 120 BYTES OF CODE INTO PRINT BUFFER 


INCR WORK FROM #1 TO #124. BY #1 


012737 
000402 


#1, WORK 
BR 50251$ 
502528: 


005237 I WORK 
50251$: 

023727 000174 C WORK ,4124. 

003002 


50253$ 
LET (R3)+ :B= 


111423 (R4),(R3)+ 
END INC 
000770 BR 502528 
50253$: 


+ FOLLOWED BY CRLF 
‘ LET (R3)+ :B= #15 
112723 MOVB #15, (R3)+ 
LET (R3)+ :B= #12 
112723 MOVB #12, (R3)+ 
! PRINT LINE OF OCTAL CODE, MNEMONIC, AND 120 BYTES(NONPRINTABLE CODE) 


: GUTPUT #OUTBUF, 3. 
LET R4 := RG + 


END INC 


INC R4 


BR 50244$ 
50245$: 


: IF 64 CHAR BAND TEST FOR AUTO CONVERSION FROM LOWER CASE 
; TO UPPER CASE CHARACTERS BY THE PRINTER. 


IF CHRBND EQ #0 THEN 
005737 


CHRBND 
001073 50254$ 
OUTPUT #SKIP3, 46 : SKIP 3 LINES 
OUTPUT #AUTCON, 446. : PRINT CONVERTED MSG 
LET R3 := AMOUTBUF 
012703 002742 #OUTBUF ,R3 
INCR WORK FROM #141 TO #172 BY #1 
012737 000141 002736 #141 WORK 
000402 BR 50255$ 
50256$: 


005237 002736 I WORK 
50255$: 
923727 002736 000172 C WORK ,#172 





E 8 
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(7) 023634 003003 BGT 50257$ 
2831 023636 LET (R3)+ :B= WORK 
(4) 023636 113723 002736 MOVB WORK , (R3)+ 
2832 023642 , ENDINC 
(4) 023642 000767 R 50256$ 
(3) 023644 50257$: 
2833 023644 LET (R3) :B= #12 
(4) 023644 112713 000012 MOVB #12, (R3) 
2834 023650 OUTPUT M#OUTBUF ,427. ; LINE OF ALPHABET (LC) 
2835 023704 ENDIF 
(4) 023704 50254$: 
2836 , ; : 
2837 ; DO A TOP OF FCRMS 
2838 ; 
2839 023704 LET OUTBUF :B= 414 . ‘ 
(4) 023704 112737 000014 002742 MOVB #14 ,QUTBUF 
2840 023712 OUTPUT M#OUTBUF ,41 , 
2841 023746 EXIT TST AND EXIT TEST 
(3) 023746 104432 : TRAP CSEXIT 
mS 023750 000642 «WORD 1L10023-. 
ez ; CHARACTER BUFFER AND TEST HEADER MESSAGE 
2845 -NLIST BEX 
2846 023752 047516 026516 051120 NONCHR: .ASCII /NON-PRINTABLE CHARACTERS/<12> 
2847 024003 101 043040 046125 -ASCIZ /A FULL LINE OF EACH CODE WILL BE SENT/<12><12> 
2848 024053 114 053517 051105 AUTCON: .ASCIZ /LOWER CASE SHOULD BE CONVERTED TO UPPER CASE/<12><12> 
conn 024132 005015 005012 000 SKIP3: .ASCIZ <15><12><12><12> 
2851 024137 040 030060 020060 NONBUF: .ASCII / 000 NUL/<0> 
2852 024150 030040 030460 051440 -ASCII / 001 SOH/<1> 
2853 024161 040 03 -ASCII / 002 STX/<2> 
28 024172 030040 031460 042440 ASCII / 003 ETX/<3> 
2855 02420 0460 0 -ASCII / 004 EOT/<4> 
28 024214 030040 032460 042440 ASCII / 005 ENQ/<5> 
2857 024225 040 O 02 ASCII / 006 ACK/<6> 
2858 024236 030040 033460 041040 -ASCII / 007 BEL/<?7> 
2859 024247 040 030460 020060 ASCII / 010 BS /<10> 
242) 030040 030461 044040 ASCII / 011 HT /<11> 
2861 024271 040 030460 ASCII. / 016 SO /<12> 
024302 030040 033461 051440 ASCII / 017 SI /<1?7> 
2863 024313 040 031060 ASCII / 020 DLE/<20> 
024324 030040 030462 054040 -ASCII / 021 XON/<21> 
2865 024335 040 031060 -ASCII / 022 DC2/<22> 
024 030040 031462 054040 ASCII / 023 XOF/<23> 
2867 024357 040 031060 ASCII / 024 0C4/<24> 
024370 030040 032462 047040 ASCII. / 025 N&AK/<25> 
2869 024401 040 031060 ASCII / 026 SYN/<26> 
2870 024412 030040 033462 042440 ASCII / 027 ETB/<27> 
2871 024423 040 031460 ASCII / 030 CAN/<30> 
2872 024434 030040 0 042440 ASCII / 031 EM /<31> 
2873 024445 040 0314 ASCII / 032 SUB/<32> 
2874 024456 030040 031463 042440 ASCII / 033 ESC/<33> 
2875 024467 040 031460 02 ASCII / 034 FS /<34> 
2876 0245 030040 032463 043440 ASCII / 035 GS /<35> 
2877 024511 040 031460 020066 ASCII / 036 RS /<36> - 


CZLPLAO LP25 TEST 
CZLPLA.P11 


024522 


024612 
024612 
024612 


024614 


MACY11 30A(1052) 


01-0CT=79 09:25 


104401 


033463 
032061 


031467 
033461 
032467 
033461 


052440 
020060 
020040 
020064 


020040 
020066 


01-0CT=79 09:27 PAGE 28-3 


NON=PRINTABLE CHARACTERS 


ENDMOD 


-ASCII 


/ 037 US /<37> 
/ 140 / 


/ 
/ 
/ 


110023: 
TRAP 


CSETST 


SEQ 0096 


CZLPLAO LP25 TEST 
CZLPLA.P11 


024614 


024614 
024614 


024614 


024660 
024714 
024714 


024714 


024750 


005737 
001017 


000416 


023727 
001032 


105037 
112737 
105037 
112737 


G 
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01-OCT-79 09:25 BAND PATTERN 


002246 


002256 


025466 
00004 3 
025606 
00004 3 


.SBTTL BAND PATTERN 
BGNMOD 


+44 
: BAND PATTERN TEST 


STHIS TEST PRODUCES AN IMAGE OF THE ENTIRE BAND PATTERN. THE PRINT-OUT 
iI + ated TO LOCATE THE FOUR QUADRANTS OF THE BAND IN THE FOLLOWING 


QUADRANT NO. 1 QUADRANT NO. 2 
QUADRANT NO.3 QUADRANT NO.4 
: QUADRANT NO. 1 ETC. 


;THE REASON FOR THIS ARRANGEMENT IS TO FACILITATE VISUAL_INSPECTION 
;OF THE PRINTOUT AS WELL AS TO ACCOMODATE THE 208 CHARACTERS OF THE BAND 


;IN 132 COLUMNS. 


> SWITCHES TESTED ARE: CHRBND = 1 FOR 96 CHAR BAND 

: = 0 FOR 64 CHAR BAND 

: USA =1 FOR AMERICAN PRINT SET 
: =0 FOR BRITISH PRINT SET 
BGNTST 11. 


TH1:: 
“PRINT OUT THE TEST HEADER ACCORDING TO SWITCH CHRBND 
P IF CHRBND EQ #0 THEN 


TST 
BNE 
OUTPUT #BP641D,423. 
ELSE 
BR 
50260$: 
OUTPUT #BP9I6ID,423. 
ENDIF 
50261$: 
; FIX THE BAND PATTERN ACORDING TO SWITCH ‘USA' 
IF USA EQ #1 THEN 
000001 CMP 
BNE 
LET BP64A :B= #0 
CLRB 
LET BP64B :B= #043 
025472 MOVB 
LET BP64C :B= 40 
CLRB 
LET BP64D :B= #043 
025613 MOVB 


LET BP64E :B= 40 


SEQ 0097 


CHRBND 
50260$ 


50261$ 


USA ,#1 
50262$ 


BP64A 
#043 ,BP64B 
BP64( 
#043 ,BP64D 


CZLPLAO LP25 T 
CZLPLA.P11 


024750 


025006 
025010 
025010 


025072 
025072 


025216 


EST 


01-OCT-79 09:25 


105037 
112737 
105037 
112737 
105037 
112737 
000431 


112737 
105037 
112737 
105037 
112737 
105037 
112737 
105037 
112737 
105037 


012737 
000402 
005237 
023727 
003041 
005737 
001017 


000416 


025724 
00004 3 
026051 
000043 
026244 
000043 


000043 
025472 
00004 3 


025613 


000043 
025730 
000043 
026056 
000043 
026251 


025730 
026056 


026251 


025466 
025606 
025724 
026051 


026244 


000022 


ELSE 


H 
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: BAND PATTERN 


LET BP64F : 
LET BP96A : 
LET BP96B : 
LET BP96C : 
LET BP96D : 


; SETUP FOR POUND STERLING 
LET BP64A : 


ENDIF 


LET BP64B : 
LET BP64C : 
BP64D : 
BP64E : 
BP64F : 


INCR LINCNT FROM #1 TO #18: BY #1 


IF CHRBND EQ #0 THEN 


ELSE 


ENDIF 


OUTPUT #BP64 ,#BNDCNT 


OUTPUT #BP96,ABNDCT2 


BR 
50262$: 


50263$: 
31 PAGE OF THE PATTERN 
MOV 


BR 
50265$: ' 
50264$: , 


BR 
50267$: 


50270$: 


BP64E 
#043, BP64F 
BP96A 

#043 ,BP96B 
BP96C 

#043 ,BP96D 
50263$ 


#043 ,BP64A 
BP64B 
#043 ,BP64( 
BP64D 
#043 ,BP64E 
BP64F 
#043 ,BP96A 
BP96B 
#043 ,BP96C 
BP96D 


#1,LINCNT 
50264$% 


LINCNT 
LINCNT #18. 
50266$ 


CHRBND 
50267$ 


502708 
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2967 025216 END INC 
(4) 025216 000731 : BR 50265$ 
(3) 025220 50266$: 
2968 
2969 025220 LET OUTBUF := #14 
(4) 025220° 012737 000014 002742 MOV #14, 0UTBUF 
2970 025226 OUTPUT #OUTBUF , 41 
2971 025262 EXIT TST 
(3) 025262 104432 TRAP  — CSEXIT 
(3) 025264 001042 .WORD 110024-. 
2972 .NLIST BEX 7 
2973 025266 033071 041440 040510 BP96ID: .ASCIZ /96 CHAR BAND PATTERN/<12><12><12> 
3976 025316 032066 041440 040510 BP64iD: .ASCIZ /64 CHAR BAND PATTERN/<12><12><12> 
sore ;BAND PATTERN TABLE : 64 CHARACTER BAND 
2978 025346 020040 020040 020040 BP64: .ASCII / ABE CDTF GOHI J 1KL 2MN30P4QRSSUV6WX7Y78_+%98) *(:,/ 
2979 025435 057 026444 037073 “ASCII «= '/$=:><. 2@E]CT\' 04" 
36443 020461 BP64A: ASCII <043>'=1!' 
2981 025472 031043 040447 041063 BP6 ASCII <043>/2" A3BC4DF G5H16Jk7LMBNOP9OR* SU, YusxvZ. /<12> 
025541 020040 020040 ASCII EXRT) (0:/$1:>2<?3a)4(\"'5 
2983 025606 033043 020475 067 BP64C: .ASCII <043>'6=!7'~ 
2984 0625613 043 034047 041101 BP64D: -ASCII <043>/*8ABCODF *GH, JJ;KLM. NOEPQTRSOUVW1XY27_3+%48) (5/ 
2985 025701 072 033057 035444 “ASCII «':/6$:7><8?a)9(\*"" 
2986 025724 036443 020455 BP64E: :ASCII <043>*=-!' 
2987 025730 023443 005056 012 BP64F: <ASCII <043>/'./<12><12> 
2988 025735 000 ENDP64: :BYTE 0 
2989 EVEN 
2990 000367 BNDCNT= ENDP64-BP64 
2992 : | 
2993 > BAND PATTERN TABLE : 96 CHAR BAND 
2995 025736 020040 020040 020040 8P96: .ASCII ' ABCDQEF G1HI J2KLMN3OPO4RST SUVWX6YZ" 
2996 026011 137 022067 022045 “ASCII ° 7S%88)(: /9+: 
2997 026027 BYTE 125 
2998 30 037474 100 ASCII '<?a' 
2999 026033 164 “BYTE 164 = ° 
3000 026034 020040 020040 020040 “ASCII ' J\"'," 
3001 026051 043 154 BP96A: BYTE 43,154 
3002 026053 075 020452 “ASCII '=*!* 
3003 026056 3 055 BP96B: {BYTE 043.47,55,175,173,176,136,56,177,140,141,60, 142 
3004 026073 143 144 061 BYTE 143.144,61,146,147,150,151,62,152, 153,154,638 
3005 026107 155 156 157 BYTE 155.156.157,64.160.161.162.163,65. 165.166, 167,66 
3006 026124 170 171 172 BYTE  170.171.172.67.12 
3007 026131 040 020040 020040 ASCII ‘ ABCD8EFGSHIU" 
3008 026157 145 "BYTE 145 
3009 026160 046113 047115 ASCII '"KLMN' 
3010 026164 164 “BYTE 164 
3011 026165 117 050520 051054 “ASCII ‘OPQ,RST 
3012 026174 052452 053526 026530 “ASCII SUVO=V2, $480) (:/14;>2<7a3 JE\'%" 
3013 026244 030443 032475 041 BP96C: .ASCII <043>'1=5T' 
3014 026251 043 047 066 8P96D: [BYTE 043,47,66, 175, 173, 176, 136,67,177, 140,141.70 
3015 026265 142 143 144 "BYTE 142.143,144, 147, 136, 151,145,132, 153,154 
3016 026301 164 155 156 “BYTE 164,155, 156,1 13%, £27160" 161,162.163.52, 165,166 
3017 026315 167 055 170 “BYTE 167.55,170,171,172.56,12,12 


CZLPLAO LP25 TEST MACY17 
CZLPLA.P11 01-OCT-79 09:25 


026325 000 
000367 


026326 
026326 
026326 104401 
026330 


J_8 
30A(1052) 01-OCT-79 09:27 PAGE 29-3 
BAND PATTERN 


ay -BYTE 0 

—— =ENDP96-BP96 
-LIST BEX 

ENDTST 


ENDMOD 


L10024: 


TRAP 


CSETST 


SEQ 0100 
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° .SBTTL SPURIOUS HAMMER FIRING 
55 026330 BGNMOD 


3030 
3031 “THE PURPOSE OF THIS TEST IS TO DETECT SPURIOUS HAMMER FIRINGS AND DEFECTIVE 
3032 [HAMMER DRIVERS DURING THE OPERATION OF THE LINE PRINTER. THE PROGRAM 

3033 ;PRODUCES A LEFT WEDGE PATTERN CONSISTING OF 132 LINES OF PRINT WITH EACH 
3034 ;LINE BEGINNING WITH A ‘'?’' CHARACTER. ANY POINT OUTSIDE THE WEDGE 

see BOUNDARIES IS CAUSED BY HAMMER MISFIRES OR BY HAMMER BOUNCE. 


38 026330 BGNTST 12. 
(3) 026330 Tl2:: 


:PRINT THE TEST HEADER 
3042 026330 OUTPUT #HAMFIR,#25. 
3044 ZOUTPUT THE ACTUAL WEDGE AT THIS POINT 


3046 026364 INCR WORK FROM #1 TO #132. BY #1 :NUMBER OF LINES TO OUTPUT 
(4) 026364 012737 000001 062736 MOV «#1, WORK 
(5) 026372 000402 ! BR 50271$ 
(4) 026374 : 50272$: 

(7) 026374 005237 002736 INC WORK 

(5) 026400 502718: 

(5) 026400 023727 002736 000204 CMP WORK , #132. 
(7) 026406 003077 BGT 502738 
3047 :ALSO NUMBER OF PRINTING CHARACTERS 


3049 026410 LET R4 := #MOUTBUF ;OUTPUT BUFFER POINTER 
(4) 026410 012704 002742 MOV #OUTBUF ,R4 
3050 026414 LET SPCCNT := #132. - WORK ;NUMBER OF SPACES TO FILL IN 
(4) 026414 012737 000204 026654 MOV #132. ,SPCCNT 
(6) 026422 163737 002736 026654 SUB WORK , SPCCNT 


3052 sFILL THE OUTPUT BUFFER WITH THE REQUIRED NUMBER OF SPACES 


3054 026430 WHILE SPCCNT NE #0 DO 

(4) 026430 50274$: 

(6) 026430 005737 026654 TST SPCCNT 

(9) 026434 001405 BEQ 50275$ 
3055 026436 LET (R4)+ :B= #40 ; SPACE FILL 

(4) 026436 112724 000040 MOVB #40, (R4)+ 
3056 026442 LET SPCCNT := SPCCNT - #1 UPDATE FILLER COUNTER 

(6) 026442 005337 026654 DEC SPCCNT 
3057 026446 ENDDO : 

(4) 026446 000770 BR 50274$ 

(3) 026450 50275$: 

3058 026450 LET CCNT := #0 

(4) 026450 005037 002270 CLR CCNT 

3059 026454 LET CHRGEN := #77 ;FIRST CHARACTER A °'?"' 

(4) 026454 012737 000077 002274 MOV #77, CHRGEN 
3060 026462 LET STRCNT := #33. 74 OF CHARACTERS IN GROUP 

(4) 026462 012737 000041 002272 MOV #33. ,STRCNT 


8 
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WHILE CCNT LT WORK DO ;NOW FILL IN REST OF BUFFER 
50276$: 


023737 002270 CMP CCNT..WORK 
002022 50277$ 

IF STRCNT EQ #0 THEN 
005737 002272 STRCNT 
001006 50300$ 


RESET GROUP POINTERS AND COUNTERS 


LET STRCNT := #33. : 
012737 002272 #33.,STRCNT 
LET CHRGEN := #77 
012737 002274 #77, CHRGEN 
ENDIF 


_ LET (R4)+ :B= CHRGEN ; 
113724 CHRGEN, (R4) + 
LET CHRGEN := CHRGEN + #1 
005237 INC CHRGEN 
LET CCNT := CCNT + #1 
005237 2 ‘ INC CCNT 
_LET STRCNT := STRCNT = 41 ;UPDATE POINTERS AND COUNTERS 
005337 DEC STRCNT 
ENDDO 
000752 BR 50276$ 
026544 50277$: 


sNOW SET UP LINE TERMINATOR AND OUTPUT THE LINE. 


026544 : LET (R4)+ :B= #12 
026544 112724 3 #12, (R4)+ 
OUTPUT THE LINE 


026550 OUTPUT #OUTBUF 4133. 


END INC 
000673 BR 50272$ 
50273$: 


LET OUTBUF := #14 
012737 002742 . #14 ,QUTBUF 
OUTPUT #OUTBUF ,41 END OF TEST FORMFEED 
EXIT TST 
104432 CSEXIT 
000036 , L10025-. 


; COUNTERS, POINTERS, TEXT BUFFER, AND HEADER FOR TEST PRINTOUT 
SPCCNT: .WCRD 0 
TEST HEADER. MESSAGE 

BASE: 047511 HAMFIR: .ASCIZ /SPURIOUS HAMMER F IRING/<12><12><12> 


44040 
020122 
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CZLPLA.P11 01-OCT-79 09:25 PURIOUS HAMMER F 


026700 044522 043516 005012 
026706 000012 


-EVEN 
026710 - ENDTST 


026710 
026710 104401 


026712 ENDMOD 


SEQ 0103 
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-SBTTL PRINT CONTROL 
026712 BaF 


ITHIS TEST rok THE PRINT CONTROL BY SENDING MORE THAN 132 CHARACTERS 

; BEFORE a fp Ae PRINT COMMAND. ALL CHARACTERS IN EXCESS OF 132 CHARACTERS 
SHOULD BE D GARDED. EACH LINE OF THE OUTPUT CONSISTS OF THE SEQUENCE OF 

> NUMBERS 33256789" FOLLOWED BY A SERIES OF UNDERSCORES AND SHOULD END IN THE 
; SEQUENCE "012°" IN COLUMNS 150 THRU 132. 


026712 &GNTST 13. 
026712 113:: 
PRINT wert IDENTIFICATION 
026712 OUTPUT #PRTICTL, #16. 
sPRINT 32 LINES, CHARACTER roy ON EACH LINE SHOULD END IN 123 
026746 DECR LINCNT FROM #31. TO #0 BY # 
012737 002264 MOV #31.,LINCNT 
000402 50301$ 
50302$: 


R 


WAWAW NWAWWWWWINA 


PEP PO et a et et Ft 8 oh ah a at I a 


005337 : DEC LINCNT 
50301$: 

005737 TST LINCNT 

002417 BLT 50303$ 


MUN EUS 2 3 2 WW a Ss es ooo 


: LOAD THE PRINT BUFFER WITH 139 CHARACTERS AND A LINEFEED 
3 ONLY THE FIRST 132 CHARACTERS SHOULD PRINT. 


OUTPUT ACTLBUF, #140. 

ENDDEC 

000754 BR 50302$ 

50303$: 

LET OUTBUF := #14 

012737 002742 #14 ,OUTBUF 
OUTPUT #QUTBUF, #1 
EXIT TST 

104432 

027072 000240 


027074 gett? 020124 PRICTL: .ASCIZ /PRINT CONTROL/ <12><12><12> 


CTLBUF: .ASCII /1234567890 
-ASCII 


-ASCII 
057537 057537 
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057537 057537 


eASCIZ / 0123456789/<12> 


WNAG 


— eat tae 
SSBLOVERE 


027332 
027334 


3 
3 
3 





CZLPLAO LP25 TEST 


CZLPLA.P11 


UWIAA ES BE EES 


VWI 
CONRV REINA S SERGE 


027334 
027334 


027414 


027414 


027542 


005737 
001004 


012737 
000403 


012737 


012737 
000402 
005237 
023727 
003041 
005737 
001017 


000416 


000731 


MACY11 30A(1052) 
01-OCT-79 09:25 


002246 


027634 


030014 


000001 


002264 
002264 


002246 


027610 


027610 


002264 


000040 
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CRITICAL PATH 


-SBTTL CRITICAL PATH 
BGNMOD 
STARS 


J EAA AARARAEARERRRRRAREEARRERERRERRERERAEERRERERERERERERHKERERERE 


ptt 

[THIS TEST ATTAINS THE HIGHEST POSSIBLE PRINTING P tas BY SELECTING 

iA DATA PATTERN WHICH EXERCISES THE PRINTER AT THE MAXIMUM DUTY CYCLE OF 
THE HAMMERS, THE TIMING LOGIC, AND THE POWER SUPPLY. A TOTAL OF 32 LINES 

ZLINES OF A WORST CASE PATTERN ARE PRINTED. 


Sd 
FFARR AAEARKEAAARAERRARERARRARARARRRAEERARRERRERERERAERERERARAREE 


BGNTST 14. 
T14:: 
: -QUTPUT #CRIPTH, 416. 


IF CHRBND EQ #0 THEN FIRST TEST FOR 64 a BAND 


CHRBND 
BNE 50304$ 
LET PTHPNT := #TAB64 ;SET UP PATTERN TABLE 
MOV A#TABGS ,PTHPNT 
ELSE 
50305$ 
50304$: 
LET PTHPNT := #TAB9I6 ELSE SET UP FOR 96 CHARACTER BAND 
MOV #TABI6 ,PTHONT 
ENDIF 
50305$: 


‘OUTPUT 32 LINES OF WORST CASE PATTERN 
INCR LINCNT FROM #1 TO #32. BY #1 
MOV #1,LINCNT 
BR 50306$ 
503078: 
INC LINCNT 
50306$: 
CMP LINCNT #32. 
50310$ 
IF CHRBND EQ #C THEN 


CHRBND 
BNE 50311$ 
OUTPUT PTHPNT #110. ” 


ELSE 
BR 50312$ 
503118: 
OUTPUT PTHPNT 4124. 
ENDIF 
503128: 
END INC 
BR 50307% 
50310$: 


CZLPLAO LP25 TEST 


CZLPLA.P11 


3189 


3190 


3191 


3192 


3193 


3194 


3195 


027542 
027542 
027550 


027610 
027612 
027620 
027626 


01-OCT-79 09:25 


D 
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CRITICAL PATH 


9 


LET OUIBUF := #14 
OUTPUT #OUTBUF ,41 


012737 000014 002742 


EXIT TST 
104432 
02 
000000 PTHPNT: .WORD 0 
051103 052111 041511 CRIPTH: .ASCIZ /CRITICAL PATH/<12><12><12> 
046101 050040 052101 
005110 005012 000 
027634 - EVEN 
364 CHARACTER BAND PATTERN 
r; CRITICAL HAMMER FIRE PATTERN 64 CHARACTER BAND 
101 064 105 TAB64: .BYTE 101,064,105,122,104,065,106,126,060,127,111 
122 104 065 
eo 
067 061 132 -BYTE 067,061,132,114,137,115,045,060,127,111,067 
114 137 115 
045 060 127 
111 067 
061 132 114 -BYTE 061,132,114,137,115,045,063,046,120,052,121 
137 115 045 
063 046 120 
052 121 
072 123 057 -BYTE 072,123,057,115,045,063,046,120,052,121.072 
115 045 063 
046 120 052 
121 072 
123 057 125 -BYTE 123,057,125,055,066,076, 130,056,131,100,123 
055 066 076 
130 056 131 
100 123 
057 125 055 -BYTE 057,125,055.066,076, 130,056, 131,100,070,042 
066 076 130 
056 131 100 
070 042 
053 124 071 -BYTE 053,124,071,042,051,136.131,100,070,135,053 
042 051 136 
131 100 070 
135 053 
124 071 042 -BYTE 126,071,042,051,136,050,075,054,041,044,062 
051 136 050 
075 054 041 
044 062 . ; 
073 101 051 -BYTE 073,101,051,136,050.075,054,041,044,062,073 
136 050 075 
054 041 044 
062 073 
101 074 102 -BYTE 101,074,102,077,064,105,106,133,065,015,012,000 


T 





SEQ 0107 


#14, OUTBUF 


CSEXIT 
L10027-. 
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030010 015 012 000 
3196 
3197 J30014 EVEN 
3198 
3199 ; 
sSoe 396 CHARACTER TABLE 
3202 H CRITICAL HAMMER FIRE PATTERN 96 CHARACTER BAND 
3203 030014 101 064 103 TAB96: .BYTE 101,064,103,123,060,065,106,126,061,130,1171 
030017 123 060. 065 
030022 106 126 061 
030025 130 171 } 
32046 030027 131 062 157 BYTE 131,062,137,114,044,116,046,061,130,111,131 
030032 114 044 116 
030035 046 061 130 
030040 111 131 
3205 030042 062 137 114 -BYTE 062,737,114,044,116,046,117,051,121,072,122 
030045 044 116 046 
030050 117 051 121 
030053 072 122 — 
3206 030055 071 124 073 BYTE 071,124,073,116,0466,117,051,121,072,122,071 
030060 116 046 117 
030063 051 121 072 
030066 122 071 
3207 030070 124 073 125 BYTE 126,073,125,145,127,077,066, 136, 132,133,124 
030073 145 127 077 
030076 066 136 132 
030101 133 124 
3208 030103 073 125 145 BYTE 073,125,145,127,977,066, 136,132,133,067,042 
030106 127 077 066 
030111 136 132 133 
030114 067 042 
3209 030116 045 040 070 -BYTE 045,040,070,075,050,041,132,133.067,042,045 
030121 075 050 041 
030124 132 133 067 
030127 042 045 
3210 030131 040 070 075 .BYTE 040,070,075,050,041,057,047,053,175,076,176 
030134 050 041 057 
030137 047 053 175 
030142 076 176 
3211 030144 074 056 050 “BYTE 074,056,050,041,057,047,053,175,076,176,074 
030147 041 057 047 
030752 053 175 076 
030155 176 074 
3212 030157 056 100 140 


-BYTE  056,100,140,135,060,134,143,054,061,040,040 


030170 040 040 
3213 030172 040 040 040 BYTE  040,060,040,060,040,040,040,040,060.040,040 
030175 060 040 040 


$ 030205 150 015 012 «BYTE .150,015,012 
6 - EVEN 
7 
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3218 030210 ENDTST 

(3) 030210 110027: 

(3) 030210 104401 ; TRAP CSersT 

3219 030212 ENDMOD 


CZLPLAO LP25 TEST 
CZLPLA.P11 


030212 


50 
030352 


MACY11 30A(1052) 


01-00 T=79 09:25 


012737 


117737 
013746 


012703 


012737 
000402 


005237 
023727 
003003 
117723 
000767 
005004 
020437 
001404 


112723 
005204 


030500 


000216 
002264 
000007 
002264 
002742 
000001 


002270 


002270 


000144 


002264 


000012 


030476 


002264 


002270 


000204 


G 
01-OCT-79 09:27 PAGE 33 
MULTIPLE LINE ADVANCE 


-SBTTL MULTIPLE LINE ADVANCE 
ror aleed 
“THIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LINE PRINTER. 
aaratn PRINTED WILL INDICATE THE NUMBER 


OF BL 
;LINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 AND A 
SALL O'S WILL INDICATE THE END OF THE TEST SEQUENCE. 


BGNTST 15. 
TISs3 


:PRINT TEST IDENTIFICATION 
OUTPUT #MUL INE ,#78. 


LET STACHR := #TABSTR ;OUTPUT CHARACTERS 


MOV 
REPEAT 
503138: 
LET LINCNT :B= @STACHR GET A CHARACTER TO ane 
LET LINCNT := LINCNT AND #7 ;MAKE THE ASCII TO OCTAL a 
BIC 
BIC 
LET R3 := #OUTBUF sSET UP OUTPUT BUFFER mies 
INCR CCNT FROM #1 TO #132. BY #1 
MOV 
BR 
50315$: 
INC 
50314$: 
CMP 
BGT 
LET (R3)+ :B= @STACHR PUT. CHARACTER IN ett vista 
END INC 
BR 
50316$: 
LET R4 := #0 , 
CLR 
WHILE R4 NE LINCNT DO 
50317$: 
CMP 
BEQ 
LET (R3)+ :B= #12 sFILL WITH LINE FEEDS - 
LET RG := RG + #1 
INC 


ENDDO 


SEQ 0110 


he 
THUS THE 


#TABSTR,STACHR 


@STACHR .L INCNT 
LINCNT ,~(SP) 
#7, (SP) 
(SP)+,LINCNT 
#OUTBUF ,R3 


#1,CCNT 
50314$ 


CCNT 
sagt 
@STACHR, (R3)+ 
50315$ 


RG 


R4,LINCNT 
503208 


#12,(R3)+ 
RG 


$$ -----, 
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(4) 030352 000771 BR 503178 
(3) 030354 | 503208: 


32 
3255 | ;NOW OUTPUT THE ACTUAL LINE 


3257 030354 LET R4 := LINCNT + #132, NUMBER OF CHARACTERS TO OUTPUT 

(4) 030354 013704 002264 , MOV LINCNT ,R4 

(6) 030360 062704 000204 ADD #132. ,R4 
3258 030364 LET STACHR := STACHR + #71 ; UPDATE CHARACTER COUNT 

(6) 030364 005237 030476 INC STACHR 
3259 030370 OUTPUT #OUTBUF ,R4 OUTPUT THE LINE . 


3260 

3261 030422 | UNTIL LINCNT EQ #0 

(3) 030422 005737 002264 TST —LINCNT 
(6) 030426 0013%2 BNE 503138 
3262 030430 LET OUTBUF := #74 

(4) 030430 012737 000014 002742 MOV «#14, OUTBUF 
3263 030436 OUTPUT #OUTBUF ,41 


3265 030472 EXIT TST 

(3) 030472 104432 TRAP CSEXIT 
(3) 030474 000140 «WORD L 
3268 030476 000000 STACHR: .WORD 0 


3270 030500 033462 033062 033463 TABSIR: .ASCIZ /272637463540/ 
033064 032463 030064 


046125 eetite MULINE: .ASC]I /MULTIPLE LINE ADVANCE/<12> 


3272 030543 116 05 3544 042502 -ASCI1Z /NUMBERS PRINTED REPRESENT # LINES TO NEXT LINE PRINTED/<12><12> 


3276 . EVEN 


3278 030634 ; ENDTST ; 

(3) 030634 L 10030: 

(3) 030634 104401 TRAP CSETST 
3279 030636 ENDMOD ’ 
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3282 , .SBTTL CHARACTER ALIGNMENT 

eSez 030636 BGNMOD 

3285 THIS TEST ae CHARACTER ALIGNMENT BY OVERPRINTING LINES oF ALTERNATING 
3286 TE°S AND SPACES. THE STARTING CHARACTER OF EACH LINE IS ALSO ALTERNATED TO 
Sen ; PRODUCE A CHECKERBOARD PATTERN. 

3289 030636 BGNTST 16. 

(3) 030636 : T16:: 

3290 ;PRINT TEST IDENTIFICATION 

3291 030636 OUTPUT #CHRALN, #22. 

3292 ;PRINT 48 LINES OF ALTERNATING ‘E'S AND ‘‘SPACE’''S 

3293 030672 i$: LET LINCNT := #24. 

(4) 030672 012737 000030 002264 . MOV #24. ,LINCNT 
3294 030700 2$: - IF LINCNT LE #0 THEN 

(6) 030700 005737 002264 TST LINCNT 

(9) 030704 003002 BGT 50321$ 
3295 030706 INLINE <JMP 3$> 

(2) 030706 000137 031312 JMP 3$ 

030712 , ENDIF 

(4) 030712 50321$ 
3297 ;LOAD BUFFER WITH ALTERNATING STRING OF ‘€‘"'S AND ‘‘SPACE’''S 
3298 030712 ‘ OUTPUT #ESPSTR,A132. 

3299 ;PRINT LINE 
3300 030746 LET OUTBUF := #15 

(4) 030746 012737 000015 002742 ; MOV #15 ,OUTBUF 
3301 030754 OUTPUT MOUTBUF ,41 
3302 ZOVERPRINT LINE 
3303 031010 OUTPUT M#ESPSTR,A132. , 
3304 031044 LET OUTBUF := #12 

(4) 031044 012737 000012 002742 MOV #12, 0UTBUF 
3305 031052 OUTPUT #OUTBUF ,41 
3306 ;NOW THE ALTERNATE PATTERN 
3307 ;LOAD BUFFER WITH ALTERNATING STRING OF ‘€'’*S AND ‘'SPACE'''S 
3308 031106 OUTPUT #ESPSTR+1,4132. 

3309 ;PRINT LINE 
3310 031142 : LET OUTBUF := 415 

(4) 931142 012737 000015 002742 MOV #15 ,OUTBUF 

3311 031150 OUTPUT MOUTBUF ,41 " 

3312 ZOVERPRINT LINE 

3313 031204 OUTPUT #ESPSTR+1,4132. 

3374 031240 LET OUTBUF := #12 ' 

(4) 031240 012737 000012 002742 MOV #12 ,OUTBUF 
3315 031246 OUTPUT #OUTBUF ,4 
3316 031302 LET LINCNT := CINCNT - #) 

(6) 031302 005337 002264. DEC LINCNT 
3317 031306 INLINE <JMP 2$> 

(2) 031306 000137 030700 JMP 2$ 
3318 031312 - 3$: 

3319 031312 LET OUTBUF := #14 

(4) 031312 012737 000014 002742 MOV #14 ,OUTBUF | 
3320 031320 OUTPUT #OUTBUF ,41 
3321 031354 EXIT TST 

(3) 031354 104432 TRAP CSEXIT 

(3) 031356 3 -WORD 110031- 


000236 
3322 031360 044103 051101 041501 CHRALN: .ASCIZ /CHARACTER ALIGNMENT/<12><12><12> 


CZLPLAO LP25 TEST 


CZLPLA.P11 


3323 


3324 


3325 


3326 


3327 


3328 


3329 


MAC 


Y11 30A(1052) 
01-OCT-79 09:25 C 


031 042524 020122 046101 


031374 043511 


031402 005124 
031407 105 
31412 
031415 105 
031420 040 
031423 105 
C31426 
031431 105 
031434 040 
031437 105 
031442 
031445 105 
031450 040 
031453 105 
031456 
031461 105 
031464 0 
031467 105 
031472 
031475 105 
1500 
031503 105 
031506 
031511 105 
031514 
031517 105 
031522 040 
031525 105 
1530 0 
031533 105 
031536 040 
031541 105 
031544 
031547 105 
031552 040 
031555 105 
1560 
031563 105 
1566 040 
031571 105 
031574 
031577 105 
1602 
031605 105 
031610 040 
031613 105 
031614 
031614 


031614 104401 
031616 


005 


012 


046516 047105 
000 


105 


~~ 
oO 
WoO 


RSORSRSESR 


OWNOMNOWNO 


ESPSTR: 


ESPST1: 


ESPST2: 


ESPST3: 


ESPST4: 


ESPSTS5: 


ESPST6: 


ESPST7: 


-EVEN 
ENDTST 


ENDMOD 


-BYTE 


-BYTE 


-BYTE 


-BYTE 


-BYTE 


-BYTE 


-BYTE 


-BYTE 
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HARACTER ALIGNMENT 


105,40,105,40,105,40,105,40,105,40,105,40,105,40,105,40, 105,40 
105 .40,105.40,105.40,105,40,105.40,105.40,105,40,105,40, 105,40 
105.40,105,40,105,40,105,40,105.40,105,40,105,40,105,40,105,40 
105,40,105,40,105,40,105,40,105.40,105,40,105,40,105,40,105,40 
105,40,105,40,105,40,105,40,105.40,105,40,105.40,105,40, 105,40 
195.40,105.40,105.40,105,40.105.40,105.40,105.40,105.40.105,40 
105,40, 105,40, 105,40, 105,40,105,40,105,40,105,40, 105,40, 105 ,40 


105.49,105,40,105,40,105 


L10031: 
TRAP CSETS? 
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CZLPLA.P11 01-00 T=79 09:25 INTERRUPT SERVICE ROUTINES 

3335 .SBTTL INTERRUPT SERVICE ROUTINES 

3336 4031616 , yang 

a : 

3339 : INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION 

3340 *POINT ING TO THE BASIC ROUTINES WHICH 

3341 SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS. 

3342 :LINE NUMBER IS RETURNED IN R2 

3345 3 

3344 -- 

3345 000000 = 

3346 031616 000020 INTOO: .REPT 16. 

3347 SETPRI #PRIOG 

3348 , tig ae 

3349 ET R2 : 

3350 ONLINE oe IODRV> 

3351 X=X+2 

3352 .ENDR 

(4) 031616 012700 000200 MOV #PRI04,RO 
(4) 031622 104441 TRAP C$SPRI 
(3) 031624 010246 MOV R2,-(SP) 
(5) 626 012702 O 10 MOV . 

(3) 031632 137 004166 JMP IODRV 

(4) 031636 012700 000200 MOV #PR104,R0 
(4) 031642 104441 TRAP 

(3) 031644 010246 MOV R2,-(SP) 
(5) 031646 012702 MOV 

(3) 031652 000137 004166 JMP IODRV 

(4) 031656 012700 0002 MOV #PRI04,RO 
(4) 104441 TRAP PR 

(3) 031664 010246 MOV R2,-(SP) 
(5) 012702 MOV x, , 
(3) 031672 137 004166 JMP IODRV 

(4) 031676 012700 000200 MOV #PRI04,RO 
(4) 031702 104441 TRAP CS$SPRI 

(3) 04 010246 MOV R2,-(SP) 
(5) 012702 MOV # 

(3) 031712 137 004166 JMP IODRV 

(4) 031716 012700 000200 MOV #PRI04 RO 
(4) 031722 441 TRAP CS$SPRI 
(3) 031724 010246 MOV R2,-(SP) 
(5) 031726 012702 000010 MOV , 

(3) 031732 137 004166 JMP V 

(4) 36 012700 000200 MOV #PRI04,RO 
(4) 031742 104441 TRAP 

(3) 031744 010246 MOV R2,-(SP) 
(5) 031746 012702 000012 MOV a 

(3) 031752 000137 004166 JMP I 

(4) 031756 012700 000200 MOV #PRI04 RO 
(4) 62 104441 TRAP 

(3) 031764 010246 MOV R2,-(SP) 
(5) 031766 012702 000014 MOV 

(3) 031772 137 004166 JMP IODRV 

(4) 031776 012700 000200 MOV #PR1I04 RO 
(4) 00, 04 TRAP C$SPR]I 


104441 
(3) 032004 010246 MOV R2,-(SP) 


| BM 
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(5) 032006 012702 000016 MOV aX ,R2 

(3) 032012 000137 004166 JMP IODRV 

(4) 032016 012700 000200 MOV #PR104,RO 

(4) 032022 104441 TRAP $SPRI 

(3) 032024 010246 MOV R2,-(SP) 

(5) 032026 012702 000020 ° MOV P 

(3) 032032 137 004166 JMP Vv 

(4) 032036 012700 000200 MOV #PRI04 ,RO 

(4) 032042 104441 TRAP 

(3) 032044 010246 MOV R2,-(SP) 

(5) 032046 012702 000022 MOV P 

(3) 137 004166 JMP Vv 

(4) 032056 012700 000200 MOV #PR104 ,RO 

(4) 104441 TRAP 

(3) 010246 MOV R2,~(SP) 

(5) 03 012702 000024 MOV P 

(3) 032072 000137 004166 JMP IODRV 

(4) 76 012700 000200 MOV #PR104,RO 

(4) 032102 104441 TRAP $ 

(3) 032104 010246 MOV R2,-(SP) 

(5) 012702 000026 MOV P 

(3) 032 000137 004166 JMP V 

(4) 032116 012700 000200 MOV #PR104 ,RO 

(4) 032122 104441 TRAP C$SPRI 

(3) 032 010246 MOV R2,-(SP) 

(5) 032126 012702 000030 MOV . 

(3) 032132 000137 004166 JMP V 

(4) 36 012700 000200 MOV #PRI04,RO 

(4) 032142 104441 TRAP C$SPRI 

(3) 032144 010246 MOV R2,~(SP) 

(5) 032146 012702 000032 MOV #X,R 

(3) 032152 137 004166 JMP ODRV 

(4) 032156 012700 000200 MOV #PR104_,RO 

(4) 104441 TRAP C$SPRI 

(3) 032164 010246 MOV R2,-(SP) 

(5) 012702 000034 MOV P 

(3) 032172 137 004166 JMP IODRV 

(4) 032176 012700 000200 MOV #PR104 RO 

(4) 104441 TRAP $SPRI 

(3) 032204 110246 MOV R2,~(SP) 

(5) 032206 012702 000036 : MOV X,R 
032212 000137 004166 JMP IODRV 


CZLPLAO LP25 TEST 
CZLPLA.P11 


032216 


032270 
032272 


MACY11 30A(1052) 


01-0CT=79 09:25 


012700 
104441 
005737 
001005 
012737 
005237 
005337 
023727 
001003 


012777 


000002 


000000 
000000 


000300 
032272 
000074 
032270 
032272 


002306 


000100 


032272 


000002 


150024 
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CLOCK SERVICE ROUTINE 


- SBTTL CLOCK SERVICE ROUTINE 


UPDATES THE sg crs AT A RATE OF 16.67 MILLISECONDS PER TICK 
AND UPDATES A SECOND COUNTER WHEN THE FI 


BGNSRV 
CLKTCK: 


ENDSRV 


TIME: 
TICK: 


SETPRI #PRI06 


IF TICK EQ #0 THEN 


LET TICK := #60. 

LET TIME := TIME + #1 
ENDIF 
LET TICK := TICK = #1 
IF CLKTYP EQ #2 THEN 


LET @CLKCSR := #100 
ENDIF 


AND EXIT 


. WORD 
. WORD 


oo 


RST OVERFLOWS. 


360 TICKS PER SECOND 


50322$: 
;BACK UP SECOND TIMER 


50323$: 


L10033: 


RTI 


SEQ 0116 


#PR1I06,RO 
C$SPRI 


TICK 
50322$ 
#60. ,TICK 
TIME 

TICK 
CLKTYP,#2 
503238 


#100, a@CLKCSR 


N ° 
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.SBTTL HARDWARE PARAMETER SECTION 
032274 BGNMOD 


p++ 
THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO 
es HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE 


BGNHRD 
-WORD L10034=L $HARD/2 
LSHARD: : 
GETADR,0,0,160000,177516, YES 
000031 
032316 
160000 
177516 


GETVEC.2,0,110,770, YES 
001031 ° 
032333 ‘ 
000110 ° 
000770 TSHILIM 
032316 ENDHRD 


032316 


032316 050114 030461 040440 GETADR: .ASCIZ /LP11 ADDRESS/ 
042104 042522 051523 


111 052116 051105 GETVEC: .ASCIZ /INTERRUPT VECTOR/ 
052522 052120 053040 
041505 047524 000122 


-EVEN 
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399 “wees SOF TWARE PARAMETER SECTION 


08 THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH 
04 [THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOFTWARE P=TABLES. 


Osseee BGNSFT 
54 000031 «WORD L10035-LSSOF T/2 
(3) 032356 LSSOFT:: 
%07 032356 GPRML MGTINT,O,1,YES 
000130 TSCODE 
(4) 032360 032440 MGTINT 
000001 1 


WORD 

WORD 

WORD 

3409 032364 GPRML GETBND,2,1,VYES 

(4) 032364 001130 «WORD TSCODE 

(4) 032366 032476 -WORD GETBND 

000001 WORD 1 

WORD 
WORD 


. 
oO 
x 
w 
x 


GETDAV,4,1,YES 


£ 
So 
x 
= 
8 


GETMAN,6,1,VYES 


¥ 
o 
Se) 
is 
& 


GETTIM,10,D,377,4,60..YES 


TSLOL IM 
an) Bess GPRML GETPLA,12,1,YES 


3415 032426 GPRMD  GETMAX,14,D,377,1,255.,YES 


WORD TSLOLIM 
WORD TSHILIM 


3417 032440 ENDSF T 
(3) 032440 i. 10035: 


3419 -NLIST BEX 
20 032440 OF 8054 02 MGT INT: “a UN MANUAL INTERVENTION TESTS/ 


196. CHARA 


PRINTING SPEED MEASUREMENT / 
/DESIRED TIME INTERVAL FOR PRINTING SPEED CALCULATION/ 
/TESTING IN U.S.A/ 


RARVRE 


CiZ 
: .ASCIZ CTER BAND/ 
GETDAV: .ASCIZ /DAVFU OPTION INSTALLED/ 
: .ASCIZ /PERFORM MANUAL 
ASCIZ 
ASCIZ 
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3426 032727 101 952125 042117 GETMAX: .ASCIZ /AUTODROP ERROR COUNT/ 

3427 LIST BEX 

3428 ~EVEN 

3429 3 

3430 

3431 032754 000020 PATCH: .BLKW 20 

3%432 «4033014 LASTAD 

(2) EVEN 
(4) 033014 000000 WORD 0 
(4) 033016 000000 WORD 0 
(3) 033020 LSLAST:: 

3423 033020 ENDMOD 

3434 000001 . END 
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ACTIVE= 100000 BUFADD 002334 CSGMAN= 000043 ESPST4 031517 GSOFSI= 000376 
ADR = 000020 G BUFCNT 002336 CSGPHR= 000042 ESPSTS 031541 GSPRMA= 000001 
ASSEMB= 000010 CCNT 002270 C$GPLO= 000030 ESPST6 031563 GSPRMD= 000002 
AUTCON 024053 C 022702 C I= ESPST7 031605 GSPRML = 
BANDSW 011212 CHARSP 022272 CS$INIT= 000011 EVL = G GS$RADA= 000140 
BITO = 900001 G 022273 CSINLP= ESEND = 002100 G$RADB= 
BITOO = 000001 G CHRALN 031360 CSMANI= 000050 ESLOAD= 000035 GSRADD= 0 
BITO1 = 000002 G C 002246 CSMEM = 000031 FAKE 7 GSRADL= 000120 
BITO2 = 000004 G CHRGEN 002274 CSMSG = 000023 FFSET 013175 G$RADO= 
BITOS = 000010 G CK1 005426 CSOPEN= 000034 FLAG GSXFER= 000004 
BITO4 = 000020 G CLEAN CSPNTB= 000014 FLSMSG 013251 G$YES = 000010 
BITOS = 000040 G CLKCSR 002312 CSPNTF= 000017 FLSMS1 © HAMF IR 6656 
BITO6 = 000100 G CLKENA 002320 CSPNTS= 000016 FLSSEL 012504 HAMRDY 011114 
BITO7 = 000200 G CLKSET 002314 CSPNTX= 000015 FRMLTH 012306 HAMRSW 010753 
BITO8 = 000400 G CLKTCK 032216 C$Q10 = 000377 FSTMSG 020613 HAMSW1 011037 
B1TO9 = 001000 G CLKTYP 002306 C$RDBU= 000007. FSAU_ = 000015 HOE = 100000 G 
BIT1 = 000002 G CLKVEC 002316 CSREFG= 000047 FSAUTO= 000020 IBE = 010000 G 
BIT10 = 002900 G 002310 C$RESE= 000033 F$BGN = IDU = G 
BIT11 = 004000 G CRTIPTH 027612 CSREVI= 000003 FSCLEA= 00000 IER = G 
one = 010000 G CSRERR 0031 C$RFLA= 000021 F$DU = 000016 INCDAT 017263 
B81T13 = 020000 G CTLBUF 027115 CSRPT = 000025 FSEND = 1 INCTBL 017617 
BIT14 = 040000 G CTLEND 004650 C$SEFG= 000046 D= INDEX 002 
BIT15 = 100000 G CTLLOP 004370 SPRI= 000041 F = 000013 INHINT 002244 
BIT2 = 000004 G CURADD 002534 C$SVEC= 000037 FSINIT= INSTR 022216 
BITS = 000010 G CURCNT 002574 TPRI= 000013 MP = 000050 INTERR 0071 
BIT4 = 000020 G = 0000 DATPTH 022703 F = INTER1 003410 
BITS = 000040 G C$AUTO= 00006 DFPTBL 2232 G FSMSG = 000011 INTHDL 007164 
BIT6 = 000100 G = 000022 DIAGMC= FSPROT= 000021 INTOO §= 031616 
BIT? = 000200 G C$BSEG= 000004 DR = 2 F = 000017 IOCTRL 004330 
BIT8 = 000400 G UB= 000002 DROPIT 004656 FSRPT = 000012 IODRV 004166 
BIT9 = 001000 G CSCEFG= 000045 E G FS$SEG = 000003 ISR = 000100 G 
BNDCNT= 000367 C$CLCK= 900062 EF .NEW= 000035 G FSSOF T= 000005 ixE = 004000 
BNDCT2= 000367 CSCLEA= 000012 -PWR= G FSSRV = 000010 ISAU_ = 000041 
BNDPAT 015152 C$CLOS= 000035 EF .RES= 000037 G F$SUB = 000002 ISAUTO= 000041 
011 C$CLP1= 000006 EF .STA= 000040 G F$SW = 000014 ISCLN = 000041 
BNDSWI 003340 C$CVEC= 000036 025735 FSTEST= 000001 I$SDU = 000041 
BNDSW1 011 CS$DCLN= 000044 ENDP96 9 026325 ADR 032316 ISHRD = 000041 
BNKSWI 003273 000051 ND2 0071 TBND 032476 ISINIT= 000041 
BOE = G CSDRPT= 000024 END4 014454 GETDAV 032520 ISMOD = 000041 
025346 = 000053 ERRCOD 0023 GETFLG 017214 iSMSG = 000041 
BP64A CSEDIT= 000003 ERRFLG 002324 032547 ISPROT= 000040 
025472 CSERDF= 000055 ERROR = 002 GETMAX 032727 ISPTAB= 000041 
BP64C 5 = 000056 ERRSVC 002674 GETPLA 032 ISPWR = 000041 
025613 000060 ERRTBL 002676 G GETTIM 032621 ISRPT = 000041 
BP64E 025724 CSERSF= 000054 ERRO6 3 017502 GETVEC 032353 ISSEG = 000047 
F 2 CSERSO= 000057 ERRO7 017553 GSCNTO= 000 ISSETU= 000041 
BP641D 025316 CSESCA= 000010 ERR11 007172 GSDELM= 000572 ISSFT = 000041 
CSESEG= 00000 ERR1 007246 G$D1SP= 3 ISSRV = 000041 
026051 UB= ERR1 007331 GSEXCP= 000400 $SUB = 000041 
BP96B 60 CSETST= 000001 ESPSTR 031407 G$HILi= 000002 ISTST = 000041 
BP96C 3 026244 CSEXIT= 000032 ESPST1 031431 G$LOLI= 000001 JSIMP = 000167 
BP96D 026251 C$GETB= 000026 ESPST2 031453 G$NO_ = 000000 LCTMSG 021016 
475 GSOFFS= 000400 LCTIBL 020532 


BP96ID 025266 C$GETW= 000027 ESPST3 031 


CZLPLAO LP2S5 TEST 


CZLPLA.P11 
LINCNT 002264 


ao * 
DADAAAIVAIAIAIAIAAIAIAIVAIAAAIAIADAIAGAGIAIAGAAAGAAAIAAG 


ag 


MAC 
01-OCT-79 09:25 


S353 


SSESSSSSSSSssESsssEss 
WONAUSWN ONO USWNON 
oS 


iLCK O 
NOINTR= 000003 


ODAAAAAAAAAAACG 


Y11 30A(1052) 01-OCT-79 09:27 
SYMBOL TABLE 


REFLIN 
REFLI1 


E 10 
PAGE 38-1 


So 
DAQDAAAAIAG AG 


REFLI2 


TSTSTM= 
TSTSTS= 


000020 
177777 
000001 


$ 

T$$SW = 010003 
TSSTES= 010031 
11 006406 


T1B 007116 
TIC 
710 023246 
T11 024614 
T12 0263 
113 026712 
114 027334 
T15 030212 
T16 030636 
T2 007404 
T3 011452 
12304 
T3SET 012302 
4 13646 
15 016330 
15.1 0164 
15.2 01 
16 017634 
17 021226 
T8 022 
19 022736 
= 000 
UNIT 002276 
USA 002256 


VFULCT 02047 
VFUOPT 002250 
VFUSEL 00361 
VFUSET 00370 
VFUTBL 020571 
WORK 0027 
WORK1 _ 902740 
X$ALWA= 000000 
XSFALS= 000040 


aD DADAAAAAG 


ADAAG 


i3) 


SEQ 0121 


wd 
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XSOFFS= 000400 SFSNO = 000403 $LOCTA= 177777 $TSK1 = 050317 $$LOC 

XSTRUE= 000020 $SFSOR = 000320 $LSTIN= 000001 $TSK2 = 050320 $SREG = 177777 
SBGNLE= 177777 $SFSRTI= 000350 $LSTTA= 000001 $TSK3 = 050277 SSRE TU= 
SERFLG= 000400 SFSRTN= 000300 SNESTL= 177777 $TSK4 = 050300 $SRTN1= 000000 
SFSAND= 000510 SFSSEL= 000140 $N = 000110 $TSKS = 050161 $SRIN2= 
SFSBAD= 000401 SFSTHE= 00033 $NSK1 = 000120 STSKE = 050162 $$SRC = 000027 
SFSBLA= 000170 SFST 0004 $NSK2 = 000110 $TSK7 = 050152 $$TGSV= 050127 
SFSCAS= 00015C $FSUNT= 000130 $NSK3 = 000120 $SARGC= 000000 $$TGSi= 000003 
SFSDEC= 000 $FSWHI= 000120 SNSK4 = 000110 $SBYTE= 000403 $$TGS2= 000000 
$FSDO = 000340 SFSYES= 000402 $NSKS = 000110 SSCASE= 000404 $$TO = 000000 
SFSFAL= 000405 SIFLEV= 177777 = 177777 $$DST = 000037 $$$TAG= 050000 
$F $GOO= 00 $1SKO = 000001 $SSKO = 050320 $SELOC= 000402 ° = 033020 
SFSIF = 000110 $1SK1 = 000001 STAGLE= 177777 SSERFL= 000000 

SFSINC= 000710 $1SK2 = 000001 _ $TAGNU= 050324. $$FLAG= 000001 

$FSLOO= 000200 $1SK3 = 000001 _ STEMP = 050323 FROM= 000000 

SFSNAM= 0001 $1SK4 = 000001 $TSKO = 950323 $$L0C = 032256 


- ABS. 033020 . 000 


ERRORS DETECTED: 0 
CZLPLA,CZLPLA.SEQ/DOC=SVC/ML ,SPMAC/ML ,CZLPLA 
RUN-TIME: 319 295 2 SECONDS 


RUN-TIME RATIO: 1091/617=1.7 
CORE USED: 24K (47 PAGES) 


DOCUMENT PAGES: 122 


